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ABSTRACT 


The  partial  differential  equation  describing  the 
transient  case  of  conductive-convective  heat  transfer  or 
convective  mass  transfer  in  homogeneous  or  non-homogeneous 
media  can  be  approximated  by  a  set  of  first  order  ordinary 
differential  equations  if  the  space  derivatives  are  replaced 
by  approximate  finite  difference  expressions.  The  concentra¬ 
tions  (or  temperatures)  at  a  number  of  discrete  points  are 
treated  as  dependent  variables,  whereas  time  is  an  independent 
variable  in  this  set  of  ordinary  differential  equations. 

If  the  medium  properties  are  dependent  upon  position  only, 
but  not  on  concentration  (or  temperature) ,  then  a  set  of 
linear  differential  ecruations  is  obtained.  A  general  method 
of  solution  to  the  problem  has  been  developed,  by  using 
certain  linear  algebra  operations ,  in  terms  of  the  matrix 
describing  the  spatial  distribution  of  the  properties  in  the 
media  and  the  vectors  describing  the  initial  and  boundary 
conditions . 

The  solution  has  been  tested  for  various  one  dimen¬ 
sional  and  two  dimensional  models  in  homogeneous  as  well  as 
non-homogeneous  media.  It  has  been  found  that  the  two 
dimensional  homogeneous  and  non-homogeneous  models  closely 
approximate  the  one-dimensional  homogeneous  model  for  a  two¬ 
fold  variation  in  Peclet  no.  and  a  value  of  dp/dT  (particle 
diameter/tube  diameter)  upto  0.075. 
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The  solution  to  the  one-dimensional  homogeneous 
model  has  also  been  obtained  using  the  higher  order  correct 
monotone  type  finite  difference  formulations.  In  the 
absence  of  an  analytical  solution  to  the  various  models, 
the  results  of  different  grid  spacings  have  been  compared 
to  get  an  overall  idea  about  the  accuracy.  In  many  prob¬ 
lems,  where  the  magnitude  of  the  convective  term  is  large, 
backward  difference  formulations  have  been  used.  The 
accuracy  of  the  backward  difference  scheme  and  the  central 
difference  scheme  for  the  convective  term  has  been  tested 
using  an  analytical  solution  corresponding  to  some  other 
set  of  boundary  conditions.  It  has  been  found  that  for  a 
value  of  the  dispersion  group  greater  than  one  half  of  the 
grid  spacing,  the  central  difference  formulation  for  the 
convective  term  is  better  but  below  or  equal  to  this  value, 
the  backward  difference  formulation  must  be  used. 

Three  types  of  different  input  signals  have  been 
tried  as  example  problems.  The  data  of  frequency  response 
has  been  generated  using  four  different  values  of  u> 
(frequency) ;  a  relatively  simple  model  has  been  developed. 
The  best  fit  parameters  of  the  model  have  been  calculated 
using  quasilinearization. 
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I .  INTRODUCTION 


Dispersion  models  are  used  mainly  to  represent 
the  flow  of  fluids  in  empty  tubes  and  packed  beds.  The 
physical  representation  of  these  models  lies  in  between 
the  plug  flow  and  the  back  mix  flow  and  a  diffusional 
process.  Various  types  of  models  can  be  used  to  charac¬ 
terize  the  flow  patterns  within  the  process  vessels.  The 
models  which  incorporate  mixing  in  actual  flow  and  a 
diffusional  process  are  called  DISPERSION  MODELS.  The 
various  dispersion  models  are  represented  in  the  excellent 
treatise  of  Bischoff  and  Levenspiel  (5,  20).  The  various 
model  parameters  and  the  simplifying  assumptions  are  also 
described  there. 

The  concept  of  axial  dispersion  and  radial  dis¬ 
persion  is  analogous  to  that  of  diffusion.  The  methods 
for  finding  out  these  dispersion  coefficients  are  also 
summarized  in  (20).  In  the  classical  treatment  of  Bischoff 
and  Levenspiel  (20)  ,  the  various  dispersion  models  are 
described,  from  the  most  general  to  the  most  simple.  They 
developed  analytical  solutions  for  simple  models  correspond 
ing  to  some  particular  set  of  boundary  conditions.  Analyti 
cal  solutions  for  non-homogeneous  media  are  not  derived  in 
their  work.  However,  the  media  properties  i.e.  axial  dis¬ 
persion  coefficients  and  the  radial  dispersion  coefficient 
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are  not  uniform  but  are  some  functions  of  its  space  co¬ 
ordinates  and  concentration. 

The  dispersion  models  are  used  to  predict  the 
behaviour  of  actual  process  vessels.  The  choice  of  a 
satisfactory  model  depends  upon  the  fact  how  closely  the 
model  represents  the  actual  flow.  If  a  flow  model  closely 
reflects  a  real  situation,  its  predicted  response  curves 
will  closely  match  the  tracer  response  curves  of  the  real 
vessel.  In  the  case  of  empty  tubes,  the  mixing  is  caused 
by  molecular  diffusion  and  eddy  diffusion  superimposed  on 
the  velocity  profile  effect.  In  packed  heds  the  mixing  is 
caused  both  by  splitting  of  the  fluid  streams  as  they  go 
around  the  particles  and  by  the  variations  in  the  velocity 
across  the  bed.  The  dispersion  models  lend  themselves  to 
relatively  simple  mathematical  formulations,  analogous  to 
the  classical  methods  of  heat  conduction  and  diffusion.  In 
general  the  dispersion  models  work  well  for  both  empty  tubes 
and  packed  beds  but  have  different  parameters. 

The  development  of  computers  in  the  recent  past 
has  made  practicable  another  alternative  approach  of  solving 
this  problem,  namely  the  techniques  of  numerical  integration. 
The  various  finite  difference  formulations  have  been  put 
forward  by  various  investigators  (22,  23)  for  the  spatial 
discretization  of  the  space  variables.  These  give  rise  to  a 
set  of  difference  differential  eauations  which  in  turn  gives 
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rise  to  a  matrix  differential  equation.  The  integration  of 
this  matrix  differential  equation  can  be  performed  either 
analytically  or  numerically.  The  integral  term  in  the 
analytical  solution  to  the  semi-discrete  form  of  the  dis¬ 
persion  model  equation  has  been  evaluated  for  various  input 
signals,  using  analytical  procedure  of  integration.  A 
significant  progress  has  been  achieved  in  this  field  of 
numerical  analysis  during  the  past  few  years. 

The  advantage  of  the  semi-analytical  technique  over 
the  analytical  one  is;  that  a  change  in  the  initial  condition 
can  be  incorporated  easily  in  the  semi-analytical  technique 
as  compared  to  the  analytical  one.  One  of  the  main  advan¬ 
tages  of  the  numerical  methods  is  that  the  non-homogenieties 
in  the  media  can  be  handled  with  great  ease.  On  the  other 
hand  these  methods  lack  generality.  If  there  is  a  change 
of  initial  or  boundary  conditions,  the  entire  solution  has 
to  be  repeated.  The  semi-analytical  technique  has  been  used 
in  this  work  to  get  the  solution  of  the  various  dispersion 
models.  The  theory  of  matrices  and  linear  algebra  is  used 
to  a  great  extent  for  a  particular  mathematical  model  of  the 
physical  system.  The  coefficient  matrix  is  unsvmmetric  and 
the  technique  used  in  (23)  has  been  employed  to  convert  this 
matrix  to  the  real  symmetric  form.  This  matrix  (symmetric) 
has  distinct  eigenvalues  and  a  set  of  orthogonal  eigenvectors 
associated  with  it.  Using  the  finite  difference  scheme 
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suggested  by  Price  (22),  the  coefficient  matrix  obtained 
was  of  the  monotone  type*.  This  matrix  has  also  distinct, 
positive  eigenvalues  but  not  a  set  of  orthogonal  eigen¬ 
vectors.  Depending  upon  the  magnitude  of  the  convective 
term,  the  various  types  of  finite  difference  approximations 
are  used.  The  concept  of  radial  symmetry  has  been  employed 
in  the  case  of  two  dimensional  models. 

In  the  remaining  chapters  of  this  investigation 
the  above-mentioned  concepts  are  further  developed.  Chap¬ 
ter  II  deals  with  the  general  theory  and  a  mathematical 
background  of  the  solution.  Chapter  III  deals  with  the 
solution  of  some  simple  and  complex  dispersion  models 
corresponding  to  certain  sets  of  boundary  conditions. 
Chapter  IV  deals  with  the  solution  of  one  dimensional 
model  using  higher  order  correct  monotone  type  formulations 
(22)  and  the  significance  of  the  convective  term  (24), 
and  some  conclusions  have  been  derived  from  this  work  in 
Chapter  V. 
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A  real  (n  x  n)  matrix  A*  =  (a*i  j)  is  monotone  if  and 
only  if  it  possesses  a  non-negative  inverse,  i.e.  A*-1 


>  0. 
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II.  GENERAL  THEORY 

The  general  problem  of  solving  the  dispersion 
model  partial  differential  equation  is  discussed  in  this 
chapter.  A  semi-analytical  solution  has  been  developed 
using  some  operational  methods  of  linear  algebra  and 
matrix  algebra. 

The  general  dispersion  model  which  describes 
the  process  is  derived  in  the  comprehensive  treatise  of 
Bischoff  and  Levenspiel  (5) .  The  simplifying  assumption 
is  that  of  constant  density.  The  general  dispersion  model 
equation  written  in  the  standard  vector  notation  is: 


8c 

—  +uvc  =  V.(D.Vc)  +  S  +  r 
at-  c 


where  c 
u* 

D 


t 

S 

r 

c 


The  concentration  at  any  point  in  the  reactor. 

The  velocity  vector  at  a  particular  point  with  res 
pect  to  an  arbitrary  chosen  position. 

The  dispersion  coefficient,  generally  a 
function  of  fluid  properties  and  the  flow 
characteristics . 

Time . 

The  source  term. 

The  chemical  reaction  term. 


A  bar  under  a  letter  is  used  to  denote  vector  or  matrix 
Capital  letters  used  for  matrices  and  lower  case  for  vectors 
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The  general  dispersion  model  equation  in 
cylindrical  coordinates  is  given  by: 


8c 

8c 

—  +  u  (r) 

— 

3 1 

8x 

9  n  (r)  8c  19  ac 

—  (  L  — )  + - (r  D  (r)) —  +  S  +  r 

9x  r  9r  3r  c 


(II. 2) 


The  above  equation  is  restricted  to  the  bulk  flow 
in  the  axial  direction  and  radial  symmetry. 


where  c 
u  (r) 


DL(r) 

DR(r) 

r 

x 


The  concentration  at  any  point  in  the  reactor. 
Velocity  vector  at  a  particular  point  with  respect  to 
an  arbitrary  position. 

The  axial  dispersion  coefficient. 

The  radial  dispersion  coefficient. 

The  radial  position  variable. 

The  axial  position  variable. 


Equation  (II.  1)  is  a  parabolic  partial  differential 
equation  in  four  independent  variables  (time  t  and  three 
space  variables)  and  one  dependent  variable  c.  If  D  is 
independent  of  c,  this  equation  becomes  linear,  since  it 
contains  only  the  first  power  of  the  concentration  and  its 
derivatives.  Since  it  contains  second  partial  space  deri¬ 
vatives  of  concentration,  it  is  of  the  second  order.  Similar 
argument  holds  for  equation  (II.  2)  except  it  has  two 

independent  space  variables. 


■ 
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The  general  problem  is  to  determine  the  concen¬ 
tration  profile  in  the  reactor  at  any  time  given l 

(i)  The  concentration  distribution  at  an  earlier 
instant  (generally  at  t  -  0) ;  this  is  termed 
an  initial  condition. 

(ii)  The  influence  of  surroundings  on  the  boundaries 
of  the  reactor ,  these  are  termed  as  boundary 
conditions . 

The  various  types  of  methods  used  for  the 
solution  can  be  broadly  classified  in  three  main 
categories . 

(1)  Analytical  Methods. 

(2)  Semi-Analytical  Methods. 

(3)  Numerical  Methods. 

The  analytical  solutions  corresponding  to  one 
dimensional  case  are  available  in  (4,  17)  for  some  limited 
sets  of  boundary  conditions.  Carslaw  and  Jeager  (7)  deal 
with  some  analytical  solutions  of  the  conduction  type 
equation.  The  analytical  solutions  in  the  transformed 
space  are  available  in  (3,  13)  corresponding  to  some 
boundary  conditions.  The  analysis  of  the  experimental 
study  done  by  Shemilt  and  Krishnaswamy  (26)  corresponding 
to  both  sets  of  boundary  conditions  (same  as  used  in  this 
work)  shows  that  there  is  no  appreciable  difference  in  the 
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two  sets  of  boundary  conditions  in  the  transformed  space. 

The  present  work  is  a  step  to  get  the  solutions  of  these 
cases  in  the  time  domain. 

The  numerical  methods  for  solving  such  type  of 
partial  differential  equations  have  been  extensively 
developed  since  the  high  speed  computers  came  into 
existence.  The  various  numerical  methods  can  be  mainly 
classified  in  two  broad  categories,  namely  the  explicit 
and  implicit  methods.  Varga  (29)  generalized  the  various 
methods  and  developed  some  general  criteria  for  the  stabi¬ 
lity  of  these  methods.  These  methods  are  summarized  and 
stable  procedures  have  been  developed  for  these  techniques 
in  (1,  2)  . 

Using  numerical  methods  a  general  solution  can  not 
be  obtained.  If  a  slight  change  is  made  in  the  initial  and 
boundary  conditions,  the  whole  solution  has  to  be  repeated. 
In  the  case  of  numerical  methods  the  integration  procedure 
is  stepwise,  which  is  a  time-consuming  procedure.  The 
solution  has  to  be  evaluated  at  all  the  previous  time  inter¬ 
vals  to  get  the  solution  at  the  time  required. 

The  semi-analytical  solution  used  in  this  work  for 
the  solution  of  the  dispersion  model  combines  many  advan¬ 
tages  of  the  numerical  and  analytical  methods  while  reduc¬ 
ing  some  of  the  disadvantages  of  these  methods. 
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The  semi-analytical  method  uses  concept  of  finite 
^fference  approximations,  commonly  used  in  numerical 
analysis  along  with  some  matrix  theory  and  operational 
methods  of  linear  algebra.  These  methods  are  not 
altogether  new  but  the  application  of  these  methods 
to  the  chemical  engineering  problem  has  been  limited. 

Varga  (28)  suggested  the  solution  of  the  diffusion  type 
equation  using  this  method.  The  important  work  of  Wei 
and  Prater  (32)  also  makes  use  of  this  method. 

By  using  semi-discrete  central  finite  difference 
approximations  for  discretizing  the  space  variables,  the 
equations  (II. 1)  and  (II. 2)  can  be  brought  to  the 
following  standard  matrix  notation  form. 

dc  ( e ) 

G  — —  =  -a*  c (e )  +  sj_(e)  (II. 3) 

A  diagonal  matrix  of  constants. 

Concentration  vector. 

Coefficient  matrix  of  constants. 

Boundary  condition  vector. 

Reduced  time. 

However,  the  matrix  A*  is  now  no  longer  symmetric 
and  it  may  or  may  not  be  diagonally  dominant.  To  illustrate, 
consider  one  dimensional  case  where  the  coefficients  are 


where  G  * 
c(e)  * 
A*  = 

s'  (e)  = 
0  = 


constants,  i.e. 


10 


*  3c  3  “c  3c 
—  =  a- 


30 


2 

9; 


3  z 


(II. 4) 


(a)  Using  central  difference  semi-discrete  formulations 


32c 


3z' 


:i+1  (0)  -  2c.  (0)  +  ci_1(e) 

n 


(II. 5) 


ac  =  ci+i(9)  -  ci-i(e) 

3z  2h 


(II. 6) 


The  typical  boundary  conditions  are 


I.C  c  =  0  at  0  =  0  0<z<l 
B.c  c  =  1  at  z  =  0  0>O 


(II. 7) 


3c 

—  *  0  at  z  =  1 
3z 


The  coefficient  matrix  A*  is  of  the  following  type: 


A*  = 


2a 


/  h. 
-(o-j) 


(o+j)  2a 


,  h. 

-(a-j) 


~  (a+J)-)  2a  -  (a-~) 


2 

-  (a+j)  (a+j) 


(II. 8) 


For  derivation  and  conversion  to  the  dimensionless 
form  (II. 4)  refer  to  Chapter  III. 
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Price,  Varga  and  Warren  (23)  have  shown  that 
the  eigenvalues  of  A*  are  only  real  if  ^  <  a  (where 
h  =  grid  spacing  and  a  =  axial  dispersion  group) .  If 
2  >  a  then  some  of  the  eigenvalues  of  A*  will  be  complex, 
leading  to  oscillating  solutions.  Such  type  of  solutions 
would  be  unacceptable  on  physical  grounds  and  any  matrix 
differential  equation  so  formulated  would  represent  an 
inherently  incorrect  approximation  to  the  original  partial 
differential  equation. 

If  h  is  chosen  such  that  ^  <  a ,  then  matrix  A* 
has  the  following  properties: 

(i)  All  the  off  diagonal  elements  are  negative. 

(ii)  All  the  eigenvalues  of  A*  are  real  and  positive 
and  the  eigenvectors  are  also  real. 

(iii)  It  is  a  positive  definite  matrix. 

(b)  Using  the  higher  order  correct  monotone  type  finite 
difference  formulations  as  suggested  by  Price  (22) . 

The  computational  molecules  and  the  finite 
difference  formulations  are  given  in  Chapter  IV.  The 
coefficient  matrix  A*  obtained  for  this  case  is  of  the 
following  type: 


o;  • .  . ,  • ; ; 
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A* 


24a  -12 (a-|) 

-16(a+|)  30a  -16  (a-|)  (a-h) 

(a+h)  -16(a+|)  30a  -16  (a-|)  (a-h) 


(II. 9) 


(a+h)  -16  (a+^-)  30a  -(15a-7h) 

(a+h)  ( -15a  +  9h )  (14a  +  8h)_ 


Although  the  matrix  A*  in  this  case  is  not  diagonally 
dominant,  yet  it  has  the  following  properties: 

(i)  It  is  monotone  (22)*. 

(ii)  All  the  eigenvalues  are  real,  positive  and 
distinct . 

(iii)  The  eigenvectors  are  also  real. 

If  the  central  difference  formula  is  to  be  used 
for  the  convective  term,  then  the  requirement  is  simply 
that  all  the  off-diagonal  elements  must  be  either  zero  or 
positive.  In  many  problems  of  this  type  where  the  convec¬ 
tive  term  is  large,  the  above  requirement  means  a  mesh 
spacing  so  fine  that  an  inordinately  large  number  of  grid 
points  must  be  used.  For  such  cases,  Price  et  al  (24)  sug¬ 
gests  the  following  second  order  correct  backward  difference 


*  A  real  (n  x  n)  matrix  A*  =  (a*i,j) 
only  if  it  possesses  a  non-negative 


is  monotone  if  and 
inverse,  i.e.  A*“l  >  0. 


I 


'  i  roi  Li 

. 

33  9ri^  51 


p  :•  fe- 
_ 
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approximation  for  the  convective  term. 

9c  ^  0.5  C;._2  -  2  ci^1  +  1.5  Ci 
92  h 


(II. 10) 


Equation  (II. 10)  may  be  used  for  all  grid  points  except 
for  those  next  to  the  boundary  where  one  has  to  be 
satisfied  with  first  order  correct  expressions. 


(c)  Using  monotone  type  approximations  (22)  combined 
with  the  backward  difference  scheme  for  the  convective 
term  (24)* 


The  set  of  boundary  conditions  used  in 
deriving  the  coefficient  matrix  for  (b)  and  (c)  is 
same  as  given  by  (II. 7).  The  coefficient  matrix  A* 
obtained  for  this  case  is  of  the  following  type: 


(24ot+12h) 

- (16a+24h) 

(a+6h) 


-12a 

(30a+18h) 

(16a+24h) 


-16a 

(30a+18h) 


a 

-16a  a 


A* 


(a  f 6h)  ( 16a  +  24h)  (30a+18h)  -15a 

(a+6h)  - (15a+24h) (14a+18h) 


(II. 11) 

The  properties  of  this  matrix  are  same  as  that  of  the 
matrix  in  (b) . 


. 
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Premultiplying  equation  (II. 3)  by  d”1  where 
D  =  a  diagonal  matrix  with  diagonal  entries  having 
alternate  signs  i.e. 


(-D  1|aj 


D  1G  dc ( 0 ) 
de 


A*  c  (  0 ) 


+  D  1S  '  (0) 


(11.12) 


Define  a  new  variable  v(0)  as  given  by  (11.13)  • 


c(0)  =  Dv(0) 


(11.13) 


Substituting  the  value  of  c(0)  in  (11.12)  gives: 


D _1G  D  d^(e)  =  _ 
d0 

G*  dZ(e) 

-  -  =  -Av  ( 0  ) 

d0 

where  G*  =  D_1G  D 
A  =  d'Vd 
s  (e  )=  D_1s  '  (0) 


1A*D  v  ( 0 )  +  D_1s '  (0)  (11.14) 

+  £ (0)  (11.15) 

(11.16) 

(11.17) 

(11.18) 


The  matrices  G*  and  A  as  given  by  (11.16)  and 
(11.17)  are  said  to  undergo  a  similarity  transformation. 

The  matrix  G*  is  again  a  diagonal  matrix  and  the  matrix 
A  is  now  a  real,  symmetric  matrix  derived  from  the 

original  coefficient  matrix  using  similarity  transformation 
as  given  by  (II . 17) . 


* 


' 

• 

• 
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From  the  nature  of  the  problem  it  is  quite 
evident  that  G*  is  a  positive  real  diagonal  matrix 
and  hence  its  inverse  G*_1  exists.  Define  two  new 
matrices  G*  ^  and  G*  ^  to  denote  the  diagonal  matrices 
whose  elements  are  the  square  roots  of  the  elements  of 
G*  and  G*  ^  respectively. 

The  derivation  of  equation  (II. 3)  from  (II. 1) 
or  (II.  2)  is  discussed  at  a  later  stage  takincr  into 
consideration  a  number  of  models. 

A  new  variable  u(0)  is  defined  by  the  equation 

(11.19) 


u  (6) 


v  ( 0 ) 


(11.19) 


which  gives 

*v(e)  =  g*"1/2  u (e)  (H.20) 

Substitution  of  equation  (11.20)  in  (11.15)  and 
premultiplication  by  G*”1//2  gives: 


du  (e ) 

-  =  -B  u(e)  +  s  *  ( 0  ) 

d0 


where 

B  =  G*~1//2  A  G*”1/2 

s*  (0)  =  G*~1/2  s (0) 


(11.21) 

(11.22) 

(11.23) 


* 


In  many  cases  it  will  be  seen  that  G*  =  ,  the  identitv 

matrix  which  makes  u(0)  =  v(0). 


(C '  .IX)  («)  V  ■'»_  •  <«)£ 
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On  the  basis  of  equation  (11.21)  two  types 
of  probleirs  can  be  posed. 

(1)  Given  the  coefficient  matrix  B,  an  initial  condition 
vector  c(0)  and  the  boundary  condition  vector  s'(e), 
evaluate  the  concentration  profiles  at  various  elapsed 
times.  This  type  of  problem  is  known  as  the  FORWARD 
PROBLEM” . 

(2)  Given  the  concentration  profiles  c(e)  for  various 
elapsed  times  and  the  boundary  condition  vector 
£'(0),  calculate  the  coefficient  matrix  B.  The 
problem  of  this  type  is  known  as  the  " INVERSE 
PROBLEM” . 

In  the  present  work,  only  the  first  case  has 
been  investigated  in  detail  for  a  variety  of  problems. 

The  method  used  here  is  based  on  the  semi-discrete  form 
(11.21)  of  the  dispersion  model  equation.  The  method 
used  is  general  and  the  mathematics  of  the  problem  is 
rigorous.  Any  type  of  spatial  variation  of  properties 
can  be  approximated;  the  accuracy  beincr  dependent  on 
the  mesh  size.  Any  time  dependent  linear  boundary 
conditions  can  be  handled. 

The  theory  of  the  forward  problem  can  be 
divided  into  the  following  sections: 
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(1)  Derivation  of  the  equation  in  the  semi-discrete 
form. 

(2)  Solution  of  the  semi-discrete  dispersion  model 
equation . 

(3)  Derivation  of  matrix  D  used  for  the  conversion  of 
the  original  coefficient  matrix  to  the  real 
symmetric  form. 

1.  As  discussed  in  chapter  III,  the  partial 
differential  equation  representing  one  dimensional 
homogeneous  problem  is : 

2 

D  8  c  ac  ac 

L  — 2  "  u  —  =  —  (11.24) 

ax  ax  at 

The  above  equation  can  be  converted  into  the 

following  dimensionless  form: 

2 

8c  a  c  ac 

—  =  a — 2 -  (11.25)  * 

ae  az  az 


The  equation  (11.25)  is  discretized  using 
the  central  difference  semi-discrete  finite  difference 
approximations  as  given  by  (II. 5)  and  (II. 6).  The 
typical  initial  and  boundary  conditions  are: 


I.c 

c  = 

0 

at 

0 

=  0 

B .  c 

<x>  O 

o 

II 

al 

at 

z 

=  0 

a  z 

a2 

at 

z 

=  1 

(11.26) 


*  For  details  of  the  derivation  and  the  meaning  of  the 
various  symbols  refer  to  Chapter  III. 


' 


■ 
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The  various  boundary  condition  sets  used  are 
also  given  in  Chapter  III.  The  distance  0  <_  z  <_  1 
of  the  reactor  is  divided  into  a  finite  number  of 
distance  increments  (n)  of  equal  width  h,  with  an 
increment  of  width  next  to  the  boundary,  where  the 
boundary  condition  is  specified.  The  grid  spacing 
used  is  shown  in  figure  Il-a.  The  concentrations  at 
each  of  these  grid  points  is  specified  by  c.^,  c2 , 

c3 t  •  •  •  •  /  cn* • 

Substitution  of  the  set  of  finite  difference 
expressions  into  the  partial  differential  equation  (11.25) 
gives  a  general  equation,  representing  a  set  of  difference 
differential  equations,  of  the  following  type: 


(a+|) 


i-1 


2  a  c  .  + 

l 


(  h\ 
(c-j) 


1+1 


(11.27) 


Using  equation  (11.27),  a  set  of  ordinary 
differential  equations  can  now  be  written  to  describe 
the  transient  process: 


dc1  1 

-  =  ~T 

de  h 


(a+^)a^  -  2ac^  +  (a-^-)  °2 


(II. 27.1) 


dc2  1 


de 


(a+|)Cl  2aC2  +  (a  2}  C3 


(II. 27. 2) 


*C(e)  is  referred  to  as  w(e)  in  chapter  III  and  a  foot 
note  is  also  made  there  regarding  their  same  meanina. 


' 


(n+1) 


1  9 


CN 

G 

II 

CJ  CN 
cd  cd 


C 


< 1 


CN 

rG 


G 


CN 

Xi 


CN 


I 

G 


Csl 


O 


II 

CN 


G 

II 

U 


FIGURE  1 1 ~ a  TYPICAL  GRID  SPACING  ONE  DIMENSIONAL  HOMOGENEOUS  CASE 
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dc 


n-1 


de 


7 


,  .hvC  _  2ac  ,  ,  ,  h> 

(a+T)  n-2  -  n-1  +  (a-T)  c 

2  2  n 


(11.27 {n-1) 


dc 

n 

de 


(a+|)  Cn-1 


2ac 

n  + 


(II . 27 .n ' ) 


Using  the  boundary  condition  as  specified 
by  (11.26),  an  expression  for  concentration  at  the 
hypothetical  point,  c^  in  terms  of  c^  can  be  obtained 
as  follows: 

At  (n+1)  the  boundary  condition  specifies: 


h/2 


a2  or 


n+1 


c 

n 


(11.27 (n+1) 


Also  from  the  conservation  of  mass,  the  following 
expression  holds  : 


c  ,  ,  -  c ' 
n+1  n 

h/2 


a0  or  c  ,,  =  c'  +  an  tt 
2  n+1  n  22 


(11.27 (n+2 ) 


Combining  the  last  two  equations  gives 


c'  =  c  a~h 
n  n  2 


(11.27.  (n+3) ) 


Substitution  of  the  equation  (II .  27 .  (n+3) )  in  (II.27.n') 
gives : 


dc 

n 

de 


/  . hv  ,  ,h> 

(a+75-)  C  ,  -  (a+rr)  C 

2  n-I  2  n 


^_2(a-|)  ( II .  27  .  n) 

h 


. 
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The  equations  (II. 27.1)  through  (II.27.n) 
can  be  represented  in  the  form  of  a  single  matrix 
differential  equation  as  follows: 


n 


=-l/h‘ 


2a 


(a+j) 


(  N 

-  (a-j) 


2a 


/  hv 

-(a-j) 


(a+|)  2a  (a-|) 
-(a+|)  (a  +|) 


n 


(o+2)a1 


+ 


(11.28) 


Equation  (11.28)  may  also  be  written  as: 

dc  (0 ) 

-  =  -  a*  c(e)  +  s'  (e)  (II.29) 

de 

The  above  equation  is  same  as  (II. 3)  and 
it  has  been  transformed  into  equation  (11.21)  as 
discussed  earlier  and  the  equation  is: 
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du  ( e ) 

-  =  -B  u  ( 0  )  +  s*(e)  (11.30) 

de 


2.  The  solution  of  the  forward  problem  is 
a  general  solution  of  the  equation  (11.30)  with  the 
initial  condition  u(0)  =  uq • 

Since  the  matrix  B  is  a  real  symmetric  and 
positive  definite  matrix,  it  is  quite  evident  that*, 

(i)  B  has  n  real,  positive  eigenvalues  (n  is  the 
order  of  the  matrix)  and, 

(ii)  B  has  n  real  and  mutually  orthogonal  eigenvectors 
(  j  =  1 ,  to  n  )  and  these  satisfy  the  following 
relation : 

qjqi  =  0  if  1  *  3  (11.31) 

If  the  eigenvectors  are  chosen  in  such  a  way 
that  they  are  of  unit  length,  then  they  are  orthonormal 
which  makes : 

Q~ 1  =  QT  (11.32) 


where  Q  =  eigenvector  matrix  of  B,  whose  columns 

are  normalized  eigenvectors  q ^ ,  superscript 
T  refers  to  the  transpose. 

This  particular  fashion  for  the  choice  of 
eigenvectors  makes  Q  an  orthogonal  matrix. 


* 


For  proofs  refer  to  Appendix  A. 


. 
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Define  a  new  variable  m  given  by  the  equation 

(11.33) . 

£(6)  =  Q T  u  ( 0 )  and  u(e)  =  Q  m(0)  (11.33) 


Replacement  of  u(e)  by  m(e)  in  equation 
(11.30)  gives: 


O 

-  -  =  -  B  Q  m(0)  +  S*  (6)  (11.34) 

de 

T 

Premultiplication  by  Q  gives: 


d™(0)  T  T 

-  =  -  Q  B  Q  m ( 0 )  +  Q  s*(0)  (11.35) 

d0  “  ~  ~ 


The  operation  Q  B  Q  on  the  symmetric  matrix  B 
is  termed  a  similarity  transformation  and  this  diagonalizes 
the  matrix  B  to  give  a  resultant  matrix  P,  the  diagonal  elements 
of  which  are  the  eigenvalues  of  B.  In  the  matrix  notation: 


T 

Q  B  Q 


P 


(11.36) 


where  p^  (i  =  1  to  n)  are  the  n  eigenvalues  of  B. 

T 

Also  matrices  Q  and  Q  are  given  by  (11.37) 


and  (11.38) . 


■ 

* 
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Q  = 


[11 


21 


lnl 


12 


Lln 


lnn 


(11.37) 


qt  = 


qil  q21 


l12 


In 


nl 


nn 


(11.38) 


Q  s*  (e  )  = 


a1Tsfc(0),  a2Ts*(e),  . .  £nTs*(e) 


(11.39) 


dm  (0 ) 


de 


Now  equation  (11.35)  becomes 


=  -P  m  (e  ) 


QTs* (e) 


(11.40) 


Each  individual  equation  of  the  above 
matrix  equation  may  be  put  in  the  following  form: 


dm^  (6 ) 
de 


~Pimi ( 0 )  +  <3^  s*(e) 


(11.41) 


I 
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The  above  equation  is  an  ordinary  linear 
differential  equation  of  the  first  order  in  one  variable 
itk  (e)  with  the  initial  condition: 


mi  (0) 


=  m 


i  o(  =  2i  “(°)) 


(11.42) 


and  can  be  effectively  decoupled  from  the  other  variables 
mj (  j  ?  i) .  The  equation  (11.41)  can  be  integrated  to 
give : 


rai(e)  =  e_pi6 

m.  A  + 

i,0 

fe  Piir  T  -i 

e  2l  £*<«■)  dn 

—  « 

O 

f 

l 

l_ 

(i  =  1  to  n)  (11.43) 

Equation  (11.43)  is  a  general  solution  of  equation  (11.30). 
Rearranging  and  putting  it  in  compact  matrix  notation: 


m^  (0 ) 


m2  (e ) 


Ve) 


-P1e 


“V 


~Pn0 


m 


1,0 


m 


2,0 


m 


n ,  0 


-Pj^e 


-p2e 


‘  -pn9 
e 


0  f  P^n 
e 


0 


n  d> 


e 


pnn  [anT£*(Tl)J  dn 


0 


(11.44) 


. 


'  ft  ; 

. 


1 
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Premultiplying  equation  (11.44)  by  Q  gives: 
_  _ .  _  __  _  ”Pne 


ux  (e ) 

ml,0 

411  412  *  *  * 

. 4ln 

[~e  n 

u2  (e ) 

q21 

• 

• 

-p2e 

e 

• 

m2,0 

• 

• 

• 

’  -p  9 

• 

• 

uA(e) 

q  , . 

P 

m 

^nl 

*4nn 

IK  A 

n ,  0 

___ 

qll  q12 


21 


lnl 


In 


lnn 


-P^ 


-P2e 


*-Pn6 

e 


e 


o 


Pln  T 

e  £  *  ( n )  d  n 


0 


0 


pnn 

e  T  * 
q  s* 
-1  n 


(n)dn 


(11.45) 


But  mo  =  Q  uQ 


and  Q  Q  = 


(11.46) 

(11.47) 


Substitute  equation  (11.46)  in  the  first  term 
of  equation  (11.45)  and  equation  (11.47)  into  the 
second  integral  term  of  equation  (11.45)  to  give: 


0 ,  n 


(r*.ii) 


■ 
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u,  (0) 

q,  .  q, „  ... 

— Pi  0  - 

e 

rr 

1 

^11  ^12 

. 4ln 

qll  q21 

•  •  •  M  « 

nl 

U2<8) 

• 

• 

q21 

• 

• 

n> 

•  i 

• 

N) 

CD 

«12 

• 

• 

• 

• 

U  (0) 

• 

• 

• 

q  . . 

• 

• 

• 

-D  0 

e  • 

• 

• 

• 

rr 

• 

n 

_ nl 

Mnn_ 

_  In . 

,qnnJ 

ui,o 

q,  ,  q, ^  .  . 

-P-L© 

0 

M11  m12 

• • • *4ln 

U2 , 0 

q21 

n> 

i 

tO 

CD 

4 

• 

• 

• 

u  ’  . 

q  *  . . 

....q'l 

• 

*  -p  e 
e  n 

n ,  0 

4nl 

4nn 

— 

0 

— 

— 1 

qil  q2r... 

. qnl 

ii  q12 

' ‘ "qln 

q12 

A 

JO 

1 

X 

q,  . 

a . 

.  .  .  rr  * 

[jin 

^nn_ 

a 

0 

_ nl 

4nn_ 

-  rS*  ' 

- 

f  % 

> 

!.np . . lnp 
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The  following  nomenclature  is  employed: 


E(e) 


-P1e 


Po  0 


P  0 


and 


E“1(0) 


Px0 


-P2e 


(11.49) 


(11.50) 
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Pxn 

T 

e 

SLi  £  *  ( n ) 

.0 

—  — 

h(e)  = 


r  p  n 
• n 

SLnT-*  ( n  ) 

0 

— 

» 

_Pxn 

e 

qll  q21  •  • 

'qnl 

P2n 

e 

• 

• 

q12 

• 

• 

• 

• 

• 

P  n 
^  n 

• 

• 

• 

0 

e 

Lqln . 

^nn_ 

s^*  (n) 


dn 


(11.51) 


s  *  ( n ) 
n 
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Hence  equation  (11.48)  may  be  written  as: 


u(0)  =  Q  E  (  0  )  QT 

<D 

+ 

o 

1  31 

Q  E_1 ( n)  QTs * ( n )  dn 

. 

0 

(11.52) 


-1/2 

..  v(e)  =  G*  u  ( 0 )  from  equation  (11.20) 


also  u 
— o 


1/2  v0 


and  s* (n)  =  G*1/2  s(n) 


Substituting  the  values  in  equation  (11.52) 


gives : 


v(e)  =  G*”1^2  Q  E(6)  QT 


e 


g*1/2Yo  + 


Q  E_1(n)QTG*1/2s(n)  dn 


or 

v(0)  =  G 


*_1/2  Q  E (0 )  QTG*1/2 


^0  + 


0 


G*1//2Q  e”1  (n)QTG*“1//2s  (n)  d 


(11.53) 


Since  c(0)  =  D  v(0)  from  equation  (11.13) 

also  yQ  =  D  1c()  and  s  (n)  =  D-1  £'  (n)  . 

Substitution  of  the  above  values  in  the  equation 
(11.53)  gives: 


c  ( 0 )  =  DG*_1^2QE (0 )QT  G*1/2 


0 


2_1£o  + 


l*-1/2QE-1(n)  QT 


g.-1/2  „-l_, 


D  *s' (n)  dn 


1 

t  a<  v 


. 


nb  (a  )  *  3  *  Q 


*0 
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or 


c(e)  =  dg*-1/2qe (e)  qtg*1/'2d"'1 


e 


o' 


DG*’1/2QE”1(n)QT 


G* 


-l/2n" 


d’"1£'  (n)  dnj  (11.54) 


Equation  (11.54)  represents  a  general  solution 
of  the  matrix  differential  equation,  which  in  turn  is  the 
general  solution  of  the  dispersion  model  equation  (II. 1) 
or  (II. 2)  after  rigorous  approximation  and  discretization 
of  the  space  derivatives.  The  integral  term  may  be  evaluated 
analytically  if  the  boundary  condition  vector  s'  (tf)  is  simple; 
otherwise  the  numerical  integration  methods  have  to  be  applied. 

However,  the  solution  involves  the  calculation  of 
the  eigenvalues  and  eigenvectors  of  matrix  B. 

3.  Derivation  of  matrix  D  used  for  the  conversion  of  the 
matrix  A*  to  the  real,  symmetric  form. 

As  discussed  earlier  matrix  D  is  a  diagonal  matrix, 
having  diagonal  elements  alternate  in  sign  ie.  di  *  (-l)1|dj_|. 

The  original  coefficient  matrix  A*  is  converted 
to  a  real  symmetric  matrix  using  the  following  similarity 
transformation . 

=  D_1A*  D 


A 


(11.55) 


bB*sui&vs  id'YM’ntit  sriT  .adVictsvi^ab  soaqaari*  So 

‘  Q  •-  '  ■ 

'  ‘  r  -r .  <  '•  '  ''  ' 


' 
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The  derivation  of  the  coefficient  matrix  A* 
is  quite  evident  from  the  matrix  differential  equation 
(11.28) . 

For  deriving  matrix  D,  the  actual  operation 
as  indicated  in  equation  (11.55)  is  carried  out  and  a 
set  of  equations  is  derived  in  terms  of  the  diagonal 
elements  of  the  matrix  D  so  that  the  final  matrix  A 
is  symmetric.  Two  sets  of  equations  are  given  below 
for  one  dimensional  and  two  dimensional  homogeneous 
cases.  This  technique  did  not  work  when  the  coefficient 
matrix  was  derived  using  higher  order  correct  monotone 
type  formulations. 


(11.56) 


The  value  of  d1  is  chosen  arbitrarily  and  the 
other  values  are  calculated  using  the  above  set  of 
equations  for  one  dimensional  homogeneous  case. 

The  following  sets  of  equations  were  derived  for  two 
dimensional  homogeneous  case,  thirty  point  grid, 


atrosn  jpcvriorf  cn*i  bn  »  ,  £ 
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d2 

d3 

d4 

d5 

dl 

d2 

d3 

d4 

d_ 

d^ 

drt 

d,  ^ 

7 

8 

9 

_ 

10 

*6 

d7 

^8 

d9 

d12 

d13 

d14 

d15 

dn 

d12 

d13 

d14 

d17 

— 

d18 

d17 

— 

d19 

d18 

sz 

d20 

d19 

d22 

d23 

d24 

d25 

d21 

d22 

d23 

d24 

d27 

d28 

d29 

d30 

d26 

d27 

d28 

d29 

(11.57) 


dc 

d_ 

d„ 

d 

6 

7 

8 

9 

10 

Ml 

II 

' 

31  = 

d4  = 

dll 

d12 

d13 

d14 

d15 

d6 

d7 

d8 

d9 

d10 

d.  „ 

dn 

d 

d 

d 

17 

18 

19 

20 

dn 

d12 

d13 

d14 

3n 

d21 

d22 

d23 

d24 

d25 

d16 

d17 

d18 

d19 

d20 

(11.58) 
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The  value  of  is  chosen  arbitrarily  and 
the  matrix  D  is  derived  using  the  sets  of  equations 
represented  by  (11.57)  and  (11.58).  Then  the  solution 
to  the  forward  problem  is  complete  and  the  various  values 
can  be  plugged  in  the  equation  (11.54)  which  is  the 
general  solution  of  the  dispersion  model  equation  in 
its  semi-discrete  form. 
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III.  FORWARD  PROBLEM 
(SOLUTION  OF  VARIOUS  DISPERSION  MODELS) 

The  solution  of  the  dispersion  model  equation, 
(or  conductive  convective  heat  transfer  (16)  or  convective 
diffusion  (21)  equation  for  a  one  dimensional  system 
containing  homogeneous,  incompressible  fluid)  transient 
state  problems  are  presented  in  this  chapter.  The 
coefficient  matrices  for  each  of  these  cases  are  deve¬ 
loped  using  central  difference  semi-discrete  finite 
difference  approximations.  The  techniques  employed 
for  finding  out  the  eigenvalues  and  the  eigenvectors 
of  the  coefficient  matrix  are  discussed  in  some 
detail . 


A.  HOMOGENEOUS  MEDIA 

1.  One  Dimensional  Case: 

(a)  Derivation:  Consider  a  tubular  reactor  of 
length  L  through  which  a  fluid  is  flowing  at  a  constant 
velocity  u.  It  is  also  assumed  that  the  fluid  is 
homogeneous,  incompressible  and  the  mixing  is  uniform 
throughout.  The  tracer  concentration  is  zero  initially. 
After  time  zero,  the  tracer  is  introduced  and  the 
boundary  is  maintained  at  this  concentration  for  all  the 
other  times.  It  is  required  to  evaluate  the  concentration 
profiles  at  various  elapsed  times. 


si  biul*  srl^  b  r  jsse  ex  31 

otl3  *n&  sot' ixyatfni  •  .:  rt  ~>&i3  &A3  ,<rt9S  '  i 
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There  is  no  reaction  going  on  inside  the  reactor 
and  the  mixing  takes  place  because  of  axial  dispersion. 
Consider  an  elementary  section  of  the  reactor  as  shown 
in  figure  Ill-a. 

The  basic  material  balance  for  the  tracer  is: 


Input  + 

Input  = 

Output  = 

Accumulation  =  sAx-||  (III.  4) 

where  s  =  The  cross-sectional  area 
and  t  =  Time 

Generation  =  0  (III. 5) 

( *.*  There  is  no  chemical  reaction). 

Substitution  of  (III. 2),  (III. 3),  (III. 4)  and  (III. 5) 
in  equation  (III.l)  gives: 


Generation  =  Output  +  Accumulation  (III.l) 

(Input) Bulk  plow  +  (Input) Axial  Dispersion 


c  .  us  +  ( — D  s  — )  . 

in  L  ax' in 


(III. 2) 


(Output)  Bjjik  Flow  +  (Output)  Ax±al  D.spers 


ion 


c  .us  +  ( — D_  s  — ) 

out  L  ax' out 


(III. 3) 


~dls  ) 


dls  <!f  > 


+  US  (c 


x+Ax 


x+Ax 


c  )+sAx-^-  =  0 

x  at 


or 


(l£) 

ax' 


x+Ax 


(— ) 
v  ax' 


X 


u  (c 


X+AX 


Ax 


ac 

at 


(III. 6) 


■> 


. 


d  / 


c  f 

m 


AX 


C 

out 


FIGURE  III. a  MATERIAL  BALANCE  DIAGRAM  ONE  DIMENSIONAL 

HOMOGENEOUS  CASE 
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Dividing  both  sides  by  Ax  and  approaching 
the  limit  as  Ax  -*  0. 


9c 

at 


(III. 7) 


Equation  (III.  7)  describes  the  one  diirensional 
homogeneous  process.  The  various  symbols  have  the 
following  meaning: 

c  =  The  concentration  at  any  point 
dl  =  Effective  axial  dispersion  coefficient 
u  =  The  velocity  of  the  flowing  fluid 
x  =  The  axial  length  variable 
t  =  The  time 


(b)  Conversion  of  P.D.E.  to  the  Dimensionless  Form: 
Define  the  following  dimensionless  groups: 


2  =  (Dimensionless  Length) 

0 

c  =  —  (Dimensionless  Concentration) 
o 

0  =  ji—  (Reduced  Time) 


(III. 8) 


Substitution  of  (III. 8)  in  (III. 7)  gives  after  rearranaing 


=  a- 


a2c 

az2 


9  c 
90 


9c 

9  z 


(III. 9) 


’v- 


. 


■ 
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where  a 


The  axial  dispersion  group  and  is  defined 
by  equation  (III. 10) 


a  =  D^/uL 


(III. 10) 


The  concentration  profiles  are  evaluated  in 


terms  of  the  dimensionless  quantities  for  a  particular 


value  of  a . 

The  equation 
of  boundary  conditions 

I.c  c  =  0  at  6 

B.c  c  =  1  at  z 

2c  _ 

—  =  0  at  z 

3  Z 


(III. 9) 
given  by 

=  0 
=  0 

=  1 


is  solved  using  two  sets 
(III. 11)  and  (III. 12) . 

0  <  z  <  1 


e  >  o 


(hi. 11) 


The  above  set  is  terired  as  the  ordinary 
boundary  conditions  in  this  work. 


I.c 

B.c 


c  =  0 
Cz->0+ 


at  0=0  0<z<l 

=  1  ,  at  z  =  0  ,  0  >  0 


t  9c\ 

—  a  ( - ) 

v  3z' 


z+0+ 


3c 
3  z 


=  0  at  z  =  1 


(III. 12) 


The  above  set  is  termed  as 
Danckwerts  boundary  conditions  (8) . 

The  analytical  solution  to  the  equation  (III. 9) 
with  these  sets  of  boundary  conditions  (III. 11)  and  (III. 12) 
is  not  available,  however,  corresponding  to  some  other  sets 


• 
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TAELE  III.l 


One  dimensional  Hoirocieneous  Case:  (Using  Ordinary  Boundary 

Conditions) 

Summary  of  Results*:  Comparison  of  Ten-point  Grid. 

(The  results  of  a  ten-point  grid  are  derived  from  those 
of  a  twenty  point  grid  using  interpolation  and  compared 
with  the  generated  values  using  the  semi— analytical 
technique) . 


A  complete  set  of  results  is  available  in 


Appendix  B. 


Reduced 
Time  6 

Grid 

Point 

1 

3 

5 

7 

9 

0.2 

0.88133 
0 .88238 
0.00105 

0.55646 

0.55860 

0.00214 

0.25744 

0.25543 

-0.00200 

0.08665 

0.08168 

-0.00497 

0.02199 

0.01838 

-0.00361 

0.4 

0.95032 

0.95000 

-0.00032 

0.79125 

0.79118 

-0.00007 

0.57632 

0.57668 

0.00036 

0.36106 

0.36034 

-0.00072 

0.20270 

0.20030 

-0.00240 

0.6 

0.97425 

0.97348 

-0.00077 

0.88695 

0.88522 

-0.00173 

0.75191 

0.75040 

-0.00151 

0.58862 

0.58780 

-0.00082 

0.44237 

0.44237 

0.00000 

0.8 

0.98543 

0.98447 

-0.00096 

0.93458 

0.93196 

-0.00262 

0.85080 

0.84771 

-0.00309 

0.74126 

0.73886 

-0.00240 

0.63584 

0.63501 

-0.00083 

1.0 

0.99144 

0.99040 

-0.00104 

0.96104 

0.95794 

-0.00310 

0.90924 

0.90505 

-0.00419 

0.83905 

0.83494 

-0.00411 

0.76945 

0.76645 

-0.00300 

*  The  first  entry  in  each  block  refers  to  the  value  of  c 
calculated  using  semi-analytical  technique;  the  second 
entry  refers  to  the  interpolated  value;  the  third  entry 
represents  the  deviation.  Interpolated  value  -  the 
value  calculated  by  semi-analytical  solution. 


ac/osn9no'iio,t 
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TABLE  III. 2 


One  dimensional  Homogeneous  Case:  (Using  Danckwerts 

Eoundary  Conditions) . 


Summary  of  Results* :  Ten-point  grid  comparison. 

(The  results  of  a  ten’-point  grid  are  derived  from  those  of 
a  twenty  point  grid  using  interpolation  and  compared  with 
the  generated  values  using  semi-analytical  technique) . 


Grid 

Point 

Reduced  x. 
Time  0 

1 

3 

5 

7 

9 

CM 

• 

o 

0.59343 

0.58629 

-0.00714 

0 . 32805 
0.31648 
-0.01157 

0.13632 

0.1255} 

-0.01075 

0.04224 

0.03561 

-0.00663 

0.01006 

0.00724 

-0.00282 

0.4 

0.77676 

0.76656 

-0.00020 

0.58441 

0.58037 

-0.00404 

0.39046 

0.38371 

-0.00675 

0.22585 

0.21805 

-0.0078 

0.11784 

0.11055 

-0.00729 

0.6 

0.85480 

0.85543 

0.00063 

0.73273 

0.73097 

-0.00176 

0.58225 

0.57835 

-0.0039 

0.42668 

0.42118 

-0.0055 

0.30100 

0.29491 

-0.00609 

00 

• 

o 

0.90586 

0.90581 

-0.00005 

0.82367 

0.82190 

-0.00177 

0.71444 

0.71122 

-0.00322 

0.59074 

0.58652 

-0.00422 

0.48196 

0.47756 

-0.0044 

1.0 

0.93756 

0.93651 

-0.00105 

0.88193 

0.87936 

-0.00257 

0.80481 

0.80112 

-0.00369 

0.71329 

0.70904 

-0.00425 

0.62955 

0.62548 

-0.00407 

*  The  first  entry  in  each  block  refers  to  the  value  of 
c  calculated  using  semi-analytical  solution;  the  second 
entry  refers  to  the  interpolated  value;  the  third  entry 
refers  to  the  deviation:  Interpolated  value  -  the  value 
calculated  by  semi-analytical  solution. 

A  complete  set  of  results  is  available  in  Appendix  B. 


. - -  - 
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of  boundary  conditions  the  analytical  solutions 
are  available  in  (4,  17) .  Therefore  the  accuracy 
of  the  solution  is  tested  by  comparing  the  results 
of  different  grid  spacings.  The  summarised  results 

are  represented  in  tables  (III.l)  and  (III. 2)  for  both 
sets  of  boundary  conditions. 

Ten  point  grid  and  twenty  point  grid  are  used 
to  obtain  a  general  solution.  The  distance  (0  <_  Z  <_  1) 
is  divided  into  a  finite  number  of  grid  points  of  width  h, 
with  a  slab  of  width  ^  near  the  boundary  where  the  boun¬ 
dary  condition  is  specified  (Fig.  Ill-b) .  By  replacing 
the  space  derivatives  with  the  central  difference  semi 
discrete  finite  difference  formulations,  the  following 
ordinary  matrix  differential  equation  is  obtained* 


0.4  -0.1091 

-0.2909  0.4  -0.1091 


d_ 

de 


-0.2909  0.4 

-0.2909 


-0.1091 

0.2909 


0.2909 

0 


(III. 13) 


ro 


CN 


O  O 

II  II 


M  £2 


FIGURE  TTI-b  ILLUSTRATION  OF  A  TYPICAL  TEN  POINT  GRID 

ONE  DIMENSIONAL  HOMOGENEOUS  CASE 
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The  coefficient  matrix  is  unsymmetric  and 
diagonally  dominant.  To  use  the  conventional  techniques 
for  finding  out  the  eigenvalues  and  eigenvectors  of 
a  real  symmetric  matrix,  the  resultant  matrix  is  converted 
into  the  real  symmetric  form  using  similarity  transformation 


A 


A*  D 


(III. 14) 


where  A* 

A 


the  original  coefficient  matrix 
the  original  coefficient  matrix 


converted  into  real  symmetric  form 
D  =  the  diagonal  matrix  with  diagonal 
entries  having  alternate  signs 
i.e.  =  (-1)1  |di| 

The  above  technique  is  discussed  in  detail  in 
Chapter  II  of  general  theory.  The  solution  of  equation 
(III. 13)  is  given  by 


W  ( 0  )  =  D  Q  E  (0  )  QT  D  1 

W(0>(6)  +S 

D  Q  E  1(n)eTD  1s’  (n)dn 

— 

0 

where  n  is  a  dummy  variable.  (III. 15) 

For  this  particular  case  of  a  ten  point  grid 
the  matrices  A* ,  A,  the  matrix  of  eigenvectors  Q  and 
the  diagonal  matrix  D  are  given  in  appendix  B  corresponding 
to  both  sets  of  boundary  conditions. 

Appendix  B  also  gives  the  above  matrices  for 
a  twenty  point  grid.  The  values  of  the  ten  point  grid 
derived  from  those  of  twenty  point  grid  using  interpolation 
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are  compared  with  the  corresponding  values  obtained  by 
using  the  semi- analytical  solution  and  the  check  for 
their  closeness  is  made.  The  results  are  criven  in 
appendix  B  in  detail. 

2.  Two  Dimensional  Case: 

(a)  Derivation:  In  this  case  the  mixing  takes  place 
both  by  axial  dispersion  as  well  as  by  radial  dispersion. 
Consider  an  elementary  section  of  the  reactor  as  given  in 
figure  III-c.  The  rest  of  the  problem  is  essentially  the 
same  as  in  the  one  dimensional  case. 


The  basic  material  balance  is  given  by  equation 


(III.l) . 


Input  =  (Input) 


Bulk  Flow 


+  (Input) 


Axial  Dispersion 


+  (Input) 


Radial  Dispersion 


x  r 


(III. 16) 


Output  =  (Output) 


v  Flow 

+  (Output) 

U2*r4r  °X+Ax  +  (-DL2”rArff) 


+  (Output) 


Axial  Dispersion 
Radial  Dispersion 


x+Ax 


+  <-DR2wrAxfS) 


r+Ar 


(III. 17) 


Generation 


Accumulation 


0 


n  .  .  3  C 

2  7trArAx— 

O  t 


(111. 18) 

(111. 19) 


Ax 


figure  i I I - c  material  balance  diagram  two  dimensional 


HOMOGENEOUS  CASE 
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Substituting  equations  (III. 16)  through  (III. 19)  in 
the  basic  material  balance  equation  and  rearranging 


D^-rrrAr 


(— )  -  (!£) 
9x  i a  3x; 
x+Ax  x 


+  DR2irrAx 


,  3c. 

(r3F> 


r+Ar 


,  3c. 
(r3F> 


—  — i 

=  u2?rrAr 

c 

-  c 

x+Ax 

X 

+  2Trr4r4x-|2- 

o  t 


(III. 20) 


Dividing  both  sides  of  equation  (III. 20)  by  (27trArAx) 
and  approaching  the  limit  as  Ax,  Ar  -+  0,  one  crets: 


D  .  u|£  +  1  D  i — (r— ) 

L  .  2  3x  r  R  3r  3r 

d  X 


3c 
3 1 


(III. 21) 


Upon  expanding  the  term  in  brackets  the  equation  becomes: 


D  1%  -  u|S  +  D  +  i  D  l£ 

b  ~  2  3x  R„_2  r  R  3 r 


3x 


‘3r 


3c 

3't 


(III. 22) 


Hence  equation  (III.  21)  or  (III. 22)  represents 
the  two  dimensional  homogeneous  case. 


(b)  Conversion  of  P.D.E.  to  the  Dimensionless  Form: 
As  in  the  one  dimensional  case  define  the 


following  dimensionless  quantities: 


■ 
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c 


(Dimensionless  Concentration) 
o 


z 


(Dimensionless  length) 
i.e.  axial  variable 


R 


a 


6 


0 


Y 


ut 

L 

L 

R 


o 


(Dimensionless  Radial  Variable) 

where  Rq  =  The  radius  of  the 
tubular  reactor. 

(Axial  dispersion  group) 

(Radial  dispersion  group) 

(Reduced  time) 

(Constant) 


(III. 23) 


Substituting  the  values 
groups  in  equation  (III. 22)  and 


of  the  dimensionless 
rearranging  we  get: 


8c 

89 


32C 


8  c 
8  z 


By 


ifc 

8R2 


1  „  9c 
R  6Y  8R 


(III. 24) 


1  3  c 

.  The  value  of  —  —  is  indeterminate  at  the  centre. 

.  .  A  special  equation  can  be  derived  which  is  applicable 
at  the  centre  only. 

Differentiating  the  numerator  and  the  denominator 
as  indicated  w.r.t.  R: 
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_ (—-i)  y 

1  3c  3R  vaR'  a  c 

R  3R  “  7  "  - 2  (III. 25) 

k  (R>  3R 

Substitution  of  equation  (III. 25)  in  (III. 24) 


gives : 


i£ 

ae 


3^c  3c  , 

01  ~2_  37  +2&y 

d  Z 


ifc 

9R2 


(III. 26) 


The  concentration  profiles  are  evaluated  in 


terms  of  the  dimensionless  quantities  using  average  values 
of  a  and  6.  Equation  (III. 24)  along  with  (III. 26)  is 
solved  using  two  sets  of  boundary  conditions  as  criven  by 


(III. 27)  and  (III. 28)  . 

ORDINARY  BOUNDARY  CONDITIONS 


I.c 

c  =  0 

at 

O 

ii 

CD 

4 

0  <_  z  <  1 

B .  c 

o 

!i 

i—* 

at 

z  =  0 

CD 

V 

o 

!£  =  o 

3  z 

at 

z  =  1 

i£  =  o 

3R 

at 

o 

11 

(Radial 

Symmetry) 

=  0 
3R 

at 

II 

t— J 

(No  flow 

across  the 
boundary) 

(III. 27) 


. 


■ 
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DAN CK WE RTS  BOUNDARY  CONDITIONS 


I.c 

c  = 

0 

at 

o 

II 

CD 

B .  c 

Cz-*0  + 

-  a  I 

(— ) 

32  z-0+ 

dC 

d  Z 

= 

0 

at  z 

8c 

8R 

= 

0 

at  R 

dC 

dR 

= 

0 

at  R 

1  at  z  =  0 

1 

0 

1 


(III. 28) 


In  this  case  the  solution  for  the  upper  half 
of  the  reactor  was  obtained  because  the  solution  for  the 


lower  half  is  the  same  taking  into  account  the  radial 
symmetry . 


The  finite  difference  grid  is  shown  in  the  figure 
The  partial  differential  equation  (IH24)  can  be 
approximated  to  a  set  of  ordinary  differential  equations 
using  a  central  difference  semi-discrete  finite  difference 
approximations ,  which  may  be  written  as: 


dc 


1 


de 


-2  (a+  8  6)  c^  + 


+  166c^ 

D 


+ 


<“+|) 


(III. 29.1) 


dc2  _  1 
de  h 


(a  +  8  6)c2  + 


+  166c  -j 


(III. 29. 2) 


:: 
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FIGURE  II 


ii 

a 
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-d  TWO  DIMENSIONAL  HOMOGENEOUS  CASE 


AXIAL  DISTANCE 
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dc3  1 


de 


(a+2)c2  "  2  ( ot-4-  8  3 )  c3  +  (a-^)c4  +  168cg 


(III. 29. 3) 


dc4  _  1 

- 2 

de  h 


(a+-j)  c3  -  2(a  +  88)c4  +  (a-^-)c,_  +  168c, 


(III. 29. 4) 


dc5  _  1 

- 2 

de  h 


a+- 

(a+t-)c4  -  2  (~ 2~ ■  +  86)c5  +  168c 


10 


(III. 29. 5) 


dc,-  1 
6 


de 


2&Cl  -  2  (a+4 3)  cg  +  (a-|)  c?  +  66^ 


77(“+l) 


(III. 29. 6) 


dc7  1 

-  =  ~2 

de  h 


28c2  +  (a+^-)  cg  -  2(a  +  46)c7  +  (ol-~)  cg+6  8c12 


(III. 29. 7) 


dc8  _  1 

^r  =  ? 


2  6cg  +  (a+j)c7  -  2(a  +  48)cg  +  (a- j)  c^  +  6  Sc^ 


(III. 29. 8) 


de 


2  8c4  +  (a+^-)  cg 


2 (a  +  4  8 ) cg  + 


(a’2)c10+66C14 


(III. 29. 9) 


dc 


10 


de 


i? 


2  8c, 


(a+^)c9  -  2  ( 


,  h 
a  +  2 


+  48)c^q  +  68c^3 


(III. 29. 10) 


S  3  3+9°  (  ~o)  +  ^Ol  . 
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dcll  =  1 

de  h7 


36c6  -  2  (o+4  6)  c^1  +(<»-|)c12  +  5Bclg 


h 


(III.29.il) 


dc12  1 


de 


36c7  +  (a+2)cll 


2(a+46)c12  +(a-j)c13+56c17 


(ill. 29. 12) 


dc 


13 


de 


57 


36Cg  +  (a+^)c12 


2(a  +  4B)c13  +(«-2)c14  +  5Bc18 


(III. 29. 13) 


dc14  _  1 

de  i7 


3BCg  +  (a+j)c33  -  2(a+4B)c3^  +  (a- j)  c^g+5  Be 


19 


dc15  1 


de 


17 


,  h 

h  a+-r 

3Bc1q  +  (a+2)c14  -  2 (—2~  +  4B)c15+5Bc20 


(III. 29. 14) 


(III. 29. 15) 


dC16  _  1 

7 

de  h 


10  6ci:l  -  2(a  +  46)c16  +  (a-|)  c17+^±^2 1 
3  3 


77U+  2> 


(III. 29. 16 


dC17  1 


de 


i? 


10Bc12  +  (a+2)c16 


2  (a  +  4B)  c17+ (a  2*C18+  36C22 


(III. 29. 17) 


dC18  1 

de  i7 


10BC13  +  (a+j)cl7  -  2(a  +  4B)c18+(a-|)c19+iiBc23 


(III. 29. 18) 


•  • 


- 
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dc 


19 


de 


10  6c14 


+  (a+J)cl8 


2(a  +  46)c19  +(“-!>  C20+iIBC24 


(III. 29. 19) 


dc20  =  1 

de  h: 


36C15  +  (a+2)cl9 


-  2  ( 


,  h 
a  +  2 


+  46)c20  +  36c25 


(III. 29. 20) 


dc21  =  l 

de  h: 


26c16 


2(a+4B)c21  +  <a-|)  c22  + 


h  ^ 


(III. 29. 21) 


dC22  1 


de 


?■ 


23c17  +  (a+2)c21 


2(a  +  4B)c22  +(«-j)c23+§ec27 


(III. 29. 22) 


dc 


23 


de 


26C18  +  (ot+2)c22 


2(a  +  4B)c23  +(a-|)c24+|ec28 


(III. 29. 23) 


dc24  1 


de 


26C19  +  (a+2)c23 


2(a  +  46)c24  +  (a~2) c25+26C29 


(III. 29. 24) 


dc25  1 

T 

de  h 


2Bc20  +  (a+2J  C24  2  ( 


a+]l 

2 


+46)C25+26C30 


(III. 29. 25) 


-  55  - 


dc 


26 


de 


18  BC 

5  BC21 


(2a+  i|g)c26+(a-^)c27 


+  — (a+i^-)  (III. 29. 26) 
h  Z 


dc27  _  1 

- ~2 

de  h 


18 


18 


5  0C22  +  ^a  +  2^C26  “  (2a+— 3)  c27+ (a-^-)  c 


28 


(III. 29. 27) 


dc28  _  1 

- ~2 

de  h 


18  h  i q  u 

~53c23  +  (a+2)c27  "  (2a+T6)c28  +  (a~2)c29 


(III. 29. 28 


dc29  _  1 

de 


18 


18 


53C24  +  (a+^-)c28  -  (2a+-g-e)c29  +  (a-^)c 


30 


(III. 29. 29) 


dc 


30 


de 


i|ec25  +  (a+|)c29  -(a+|  +  )  c3f) 


(III. 29. 30) 


The  above  set  of  equations  (III.  29.1)  through 
(III. 29. 30)  is  obtained  by  the  substitution  of  the  following 
expressions  for  the  space  derivatives  at  these  grid  points 
and  using  ordinary  boundary  conditions. 


^  2  c .  .  -2c.  .  +c.  . 

8  c  =  1+1,1  i/1  i-l/l 

2  ? 

3  Z  h 


3c 
3  z 


=  Ci+l,j  Ci~l / i 
2h 


—  =  Ci,j+1  '2ci,j  +Ci,j-1 
3R2  k2 

C  —  c 

3c  i,j+l  i,j-l 

9R  2k 


(III. 30) 
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where  the  subscript  i  refers  to  the  axial  variable 
and  j  to  the  radial  variable  and 
h  =  The  grid  spacing  along  the  axial  distance 
k  =  The  grid  spacing  along  the  radial  distance. 

The  value  of  y  is  taken  as  4  in  the  set  of 
ordinary  differential  equations  defined  by  (III.  29.1)  through 

(111. 29. 30)  . 

The  nomenclature  of  equations  represented  by 

(111. 30)  can  become  clear  by  referring  to  figure  Ill-e. 

The  set  of  ordinary  differential  equations 
(III. 29.1)  through  (III. 29. 30)  may  be  written  in  terms 
of  the  following  matrix  differential  equation: 

dw  ( 0 ) 

— -  =  -  A*w ( 0 )  +  s'  (0)  (III. 31) 

d0 

where 

A*  =  The  original  coefficient  matrix 
£'  (0)  =  The  boundary  condition  vector 
*w(0)  =  The  vector  of  unknowns 

The  solution  of  the  above  matrix  differential 
equation  is  discussed  in  detail  in  Chapter  II  of  General 
Theory . 

The  matrix  A*  as  it  appears  in  the  matrix 
differential  equation  (III.  31)  is  converted  to  the  real 
symmetric  matrix  A  using  the  same  kind  of  similarity 


RADIAL  DISTANCE 


5  7 

# 


( 1  >  J  + 1 ) 


(i-l.j) 


(i,  j) 


AXIAL  DISTANCE 


(  i  »  j  - 1 ) 


FIGURE  Ill-e  NOMENCLATURE  DIAGRAM  FOR  (III. 30) 
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transformation  as  in  the  one  dimensional  homogeneous  case 


-  D  A*D  where  the  matrices  A,  A*  and  D  are  given 


1 .  e .  A 


in  Appendix  C.  A  thirty  point  grid  was  chosen  and  the 
results  corresponding  to  both  sets  of  boundary  conditions 
are  presented  in  Appendix  C.  No  analytical  solution  is 
available  to  the  partial  differential  equation  representing 
this  two  dimensional  model.  The  accuracy  with  which  the 
eigenvalues  and  the  eigenvectors  are  determined  is  clearly 
evident  from  the  check  of  similarity  transformation  to 
produce  the  matrix  A  as  given  in  Appendix  C. 

The  relevant  computer  programs  and  the  complete 
set  of  results  are  given  in  Appendix  C. 

B •  Non  Homogeneous  Media 

!•  One  Dimensional  Case: 

This  takes  into  account  the  dependency  of 
the  media  properties  on  the  space  position,  but  not 
the  time.  The  semi-analytical  solution  for  this  case  is 
presented  in  this  section. 

The  partial  differential  equation  describing 
the  overall  process  is : 


9  c 
9  0 


(III. 32) 


. 


. 
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where  u  =  The  velocity  of  the  flowing  fluid  and  is 

assumed  as  constant. 

L  -  The  characteristic  length  of  the  reactor. 

°L  “  T^e  axial  dispersion  coefficient  which 
is  assumed  as  a  linear  function  of  z. 
i.e.  =  a+bz  =  f(z) 

where  a  and  b  are  constants. 

The  equation  (III. 32)  is  solved  using  the 
following  sets  of  boundary  conditions: 


I.c 

c  = 

0 

at 

0 

=  0 

0 

l 

i — 1 

V  | 

N 

V  | 

B .  c 

c  = 

1 

at 

z 

=  0 

0 

>  0 

(III. 33) 

9c 

9  z 

0 

at 

z 

=  1 

and 

— 

I .  c 

c  = 

0 

at 

0 

=  0 

0 

1 — 1 

V  I 

N 

V  | 

C  n  + 

Z  +  0 

- 

uL  (DL 

9c> 
9  z ' 

z+0  + 

=  1 

at  z  =  0 

0  >  0 

(III. 34) 

. 

It  =  o 

at  z  = 

1 

— 

A 

finite  difference 

grid 

is  considered  and  the 

length  0  <_  z  <_  1  is  divided  into  a  finite  number  of 
increments  (n)  of  width  h  each,  with  a  slab  of  width  h/2 
near  the  boundary  where  the  boundary  conditions  is  specified. 
The  grid  is  shown  in  figure  Ill-f. 
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If  the  axial  dispersion  coefficient  (or  the 
diffusivity)  may  be  represented  by  discrete  values  for 
each  of  these  grid  points,  the  partial  differential  equation 
(III.  32)  can  be  transformed  to  a  set  of  ordinary  differential 
equations  by  discretization  of  the  space  derivatives  using 
an  appropriate  finite  difference  formulation. 

Consider  the  mass  balance  on  the  i element 
which  is  given  by: 


dc  . 
1 

de 


(PL)i+l/2 (ci+l  ci} 

h 


(DL) i-1/2 (ci  ci-l) 


h 


(III. 35) 


for  (i  =  1,  (n-1 ) ) 


*.*  The  value  of  the  flux  is  specified  at  the  boundary. 


.’.  dc 

n 

de 


(DL}n-l/2 (ci-l  ci} 

I? 


(III. 36) 


In  the  equations  (III. 35)  and  (III. 36) 

the  effective  axial  dispersion  coefficient  between  i^"b 
th 

and  (i+1)  element  is  taken  as  that  value  for  a  point 
half  way  between  the  ith  and  (i+l)th  planes  and  is  denoted 

by  i+1/2  *  This  approximation  is  valid  if  the  function 

f(z)  is  continuous. 

The  equations  (III. 35)  and  (III. 36)  may  be  put 
in  the  matrix  form  as  follows: 


0 
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d_ 

de 


- 

C1 

C2 

• 

1 

“'h2 

• 

c 

n 

—  — 

ci 

C2 

• 

1 

• 

+  “2 

• 

h 

• 

• 

c 

_  n 

_(DL)l/2+  (DL}3/2 


Lk(DL}  3/2-1 


-k 


k (DL} 3/2+I 


k  ^DL)  3/2+ (DL}  5/2 


k (DL) 5/2~2 


k(Vn-3/2+l 


k(DL>l/2  +  f1 


0 


0 


(DL)n-3/2+(DL) n-1/2 


k  <DL) n-1/2  2  k(DL)n-l/2 


k  (D  )  k(DT  )  . 

L  n-1/2  L  n-1/2 


(III. 37) 


According  to  the  equation  (III.  31)  the  various 
matrices  can  be  designated  as: 


A*  = 


(DL) l/2+ (DL) 3/2 


k(DL)l/2-t 


k  (DL) 3/2  +  2 


3/2+  (DL*  5/2 


k(DL)5/2-t 


-k  (D  )  ,  /0+h 

L  n  3/2  2" 


k(DL} n-1/2  2 


(D.  )  „  -5  /0+  (D  )  .  /0 

L  n-3/2  L  n-1/2 


k(DL)n-l/2  k(DL)n-l/2 


(III. 38) 


• 
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and  s  '  ( 6 


where  k 

(III. 27) 

w  (0  )  =  D 

where  n 

Q 

A 

A* 

D 


E(0) 


)  =  i 


k(DL}l/2  +  | 
0 


(III. 39) 


0 


“  anc^  A*,  £  have  their  usual  meaning. 

The  solution  of  the  matrix  differential  equation 
is  given  by  * . 


Q  E(e)  QTD  1 


-  0 

* 

W(0)  (0)  + 

D  Q  E-1  (n)QTD-1s (n)  dn 

• 

0 

(III. 40) 


is  a  dummy  variable 

The  matrix  of  eigenvectors  of  A 

Original  coefficient  matrix  converted  into 

symmetric  i.e.  A  =  D_1A*D 

(As  discussed  in  Chapter  II) . 

Original  coefficient  matrix 

The  diagonal  matrix  having  diagonal  elements 
alternate  in  sign  i.e.  d.  =  (-1)1  Id.  I 

i  1  i 1 


-p  ,  0 

e  ^  1 


“P-,9 

e  2 


-p  0 
e  n 


;  e  1 (e ) 


epie 


p.e 
e  2 


P  0 
e  n 


(III. 41) 


* 


For  details  of  the  solution  (III. 40)  refer  to  Chapter  II. 


. 
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where  (i  -  1  to  n)  are  the  n  eigenvalues  of  matrix  A 
* (as  well  as  A* ) . 


-l/d1 

II 

1 — 1 

1 

Ql 

d2 

• 

II 

1 - 1 

1 

Ql 

l/d2 

• 

• 

• 

• 

• 

• 

• 

(-1 ) ndn 

(-1)  nl/dn 

(III. 42) 


The  results  are  presented  corresponding  to  the 
following  values  of  parameters: 


k  =  ±- 

uL 


=  0.3 


D^=  0.5  (1.0  +  z ) 


h  =  0.09524 


w  ^  ( e)  =  1.0  (Initial  condition) 


(III. 43) 


For  proof  refer  to  Appendix  A  theorem  1. 


. 

■ 

' 
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TABLE  III. 3 


One  Dimensional  Non-Homogeneous  Case: 

(Using  Ordinary  Boundary  Conditions) . 
Summary  of  Results*;  -  Ten  point  grid  comparison. 

(The  results  of  the  ten  point  grid  are  derived 
from  those  of  a  twenty  point  grid  using  interpolation  and 
compared  with  the  generated  values  using  semi-analytical 
solution  technique) . 


Grid 

N^oint 

ReduceoV 
Time  0 

1 

3 

5 

7 

9 

0.2 

0.86238 

0.86399 

0.00161 

0.50770 

0.50925 

0.00155 

0.22353 

0.21925 

-0.00418 

0.07717 

0.07126 

-0.00591 

0.02286 

0.01883 

-0.00403 

0.4 

0.94013 

0.93972 

-0.00041 

0.75339 

0.75334 

-0.00005 

0.52763 

0.52625 

-0.00138 

0.32820 

0.32446 

-0.00374 

0.19858 

0.19301 

-0.00557 

0.6 

0.96735 

0.96624 

-0.00111 

0.85830 

0.85602 

-0.00228 

0.70687 

0.70298 

'0.00389 

0.54822 

0.54288 

-0.00534 

0.42869 

0.42210 

-0.00659 

o 

• 

00 

0.98044 

0.97898 

-0.00146 

0.91310 

0.90934 

-0.00376 

0.81444 

0.80791 

-0.00653 

0.70428 

0.69563 

-0.00865 

0.61738 

0.60713 

-0.01025 

1.0 

0.98781 

0.98615 

-0.00166 

0.94528 

0.94052 

-0.00476 

0.88196 

0.87325 

-0.00871 

0.80953 

0.79759 

-0.01194 

0.75174 

0.73705 

-0.01469 

*The  first  entry  in  each  block  refers  to  the  value  of  c, 
calculated  using  semi-analytical  solution;  the  second 
entry  refers  to  the  interpolated  value;  the  third  entry 
represents  the  deviation.  interpolated  value  -  the 
value  calculated  using  semi-analytical  technique. 

A  complete  set  of  results  in  the  tabular  form  is  available 
in  Appendix  D. 


. 
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TABLE  III. 4 


One  Dimensional  Non-Homogeneous  Case. 

(Using  Danckwerts  Boundary  Conditions) . 

Summary  of  Results*:  Ten-point  grid  comparison. 

(The  results  of  the  ten  point  grid  are  derived 
from  those  of  a  twenty  point  grid  using  interpolation  and 
compared  with  the  generated  values  using  semi-analytical 
solution  technique) . 


\  Grid 

Point 

ReducedN. 

Time  \ 

1 

3 

5 

7 

9 

0.2 

0.60432 

0.60111 

-0.00321 

0.31488 

0.30430 

-0.01058 

0.12667 

0.11565 

-0.01102 

0.04093 

0.03399 

-0.00694 

0.01152 

0.00827 

-0.00325 

0.4 

0.77537 

0.77947 

0.00410 

0.57176 

0.57074 

-0.00102 

0.37128 

0.36543 

-0.00585 

0.21611 

0.20782 

-0.00829 

0.12334 

0.11470 

-0.00864 

0.6 

0.85953 

0.86376 

0.00423 

0.72023 

0.72139 

0.00116 

0.55970 

0.55673 

-0.00297 

0.41036 

0.40380 

-0.00656 

0.30545 

0.29660 

-0.00885 

0.8 

0.90767 

0.91048 

0.00281 

0.81166 

0.81226 

0.0006 

0.69250 

0.68945 

-0.00305 

6.57249 

0.56603 

-0.00646 

0.48305 

0.47393 

-0.00912 

1.0 

0.93760 

0.93881 

0.00121 

0.87105 

0.87010 

-0.00095 

0.78557 

0.78100 

-0.00457 

0.69626 

0.68828 

-0.00798 

0.62819 

0.61727 

-0.01093 

*  The  first  entry  in  each  block  refers  to  the  value  of  c, 
calculated  using  semi-analytical  technique;  the  second 
entry  refers  to  the  interpolated  value;  the  third  entry 
represents  the  deviation:  interpolated  value  -  the  value 
generated  by  semi-analytical  solution. 

A  complete  set  of  results  is  available  in  Appendix  D. 
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The  matrices  A*,  D ,  A,  eigenvalues  (i=l  to  n)  , 
and  the  matrix  of  eigenvectors  are  given  in  appendix  D. 

The  results  of  a  twenty  point  grid  are  also 
presented  in  Appendix  D.  Analytical  solution  to  the  problem 
is  not  available,  therefore  the  values  of  ten  point  grid 
are  derived  from  those  of  twenty  point  grid  using  inter¬ 
polation.  The  interpolated  values  are  compared  with  those 
of  the  generated  values  and  the  summarized  results  are 
shown  in  tables  (III. 3)  and  (III. 4). 

The  complete  set  of  results  and  the  computer 
programs  are  given  in  Appendix  D. 
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2.  TWO  DIMENSIONAL  CASE: 

(a)  and  u  Both  Functions  of  R: 

This  case  takes  into  account  the  radial 
variation  of  the  media  properties.  The  fluid  is  assumed 
to  be  axially  homogeneous  and  the  velocity  profile  and  the 
radial  dispersion  coefficient  are  taken  as  dependent  upon 
radial  positions.  The  velocity  profile  data  of  Schwartz  and 
Smith  (27)  and  the  variation  of  Peclet  number  with  radial 
position  (accounts  for  radial  variation  of  diffusivity  or 
the  radial  dispersion  coefficient)  as  given  in  (12)  are 
used  to  account  for  the  radial  variation  of  the  properties. 

The  partial  differential  equation  describing  the 


process  is: 


9c 
9 1 


D 


32c 

L9  2 
x 


_9 

9r 


(III. 44) 


where  u  and  DR  are  both  functions  of  r. 

To  convert  equation  (III. 44)  into  the  dimensionless 
form,  define  the  following  dimensionless  groups: 


Z  =  —  (Dimensionless  length,  i.e.  axial  variable), 

where  L  =  The  characteristic  length. 


2^ 

R  =  (Dimensionless  radial  variable) 

K. 

O 

where  R  =  The  radius  of  the  reactor. 


a  =  (Axial  dispersion  group) 

uL 


' 


:ai  e*  ooiq 
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3 (R)  -  R  ^  ^  (Radial  dispersion  group) 

u  R 
—  o 

0  =  (Reduced  time) 

Y  =  (Constant) 

Ko 

_  u (R)  _  Point  Velocity 
u  Average  Velocity 


(III. 45) 


Substitution  of  the  various  dimensionless  groups 
in  equation  (III.  44)  after  rearranging  gives: 


3c 

a  e 


3  2c 


n  (R)f§  + 

3  Z 


X  i_ 
R  3  R 


<RB(R)f§) 


(III. 46) 


Equation  (III. 46)  is  not  applicable  at  the  centre  of  the 
reactor.  A  special  equation  can  be  derived  to  account  for 
this  by  expanding  the  last  term  of  equation  (III. 46) 


x  L_ 

R  3  R 


(RB(R)ff) 


=  Y  3  (R) 


3R 


C  _L.  /9  3  (R)  X  3c  V  fl/D\9C  /  T  T  T  „>7\ 
2  Y ^  3R  3R  +  R  6  ^  3R  t111-47) 


3  (R)  is  constant  at  the  centre 


3  3 (R)  _ 
3  R 


=  0 


(III. 48) 


Y  3  c 

^  3  (R)  gp-  is  intermediate  at  the  centre. 

Differentiating  the  numerator  and  the  denominator 
of  the  last  term  in  equation  (III. 47)  w.r.t.  R  gives: 


3R  ^ ^  3  R  ^ 


3  R  (R) 


,  3  3  (R)  ,9c,  „  32c 

y(3R - }3R  +  YMR)^2 


(III. 49) 


O  >  •  ' 
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Substitution  of  (III. 48)  in  (III. 49)  gives: 

3R  ^ 3R* 

Y  - 

3R  ^R) 

Substituting  (III. 50)  and  (III. 48)  in  (III. 47)  gives: 


=  Y  3  (R) 


afc 

3R2 


(III. 50) 


R  3 R  (R) 3RJ  2ye (R)  2 

3  R 


(III. 51) 


Substitution  of  equation  (III. 51)  in  (III. 46) 
gives  the  equation  applicable  at  the  centre: 


2  2 
3£  3  c  ,nv3c  ,  „  _  .  3  c 

3  0  a  2  n  ^  3  z  +  2 y  £  (R)  2 

3  Z  3  R 


(III. 52) 


The  equation  (III. 46)  along  with  (III. 52)  is 
solved  to  evaluate  the  concentration  profiles,  by 
discretizing  the  space  derivatives  using  the  following 
set  of  finite  difference  formulations: 


(^4) 


c . 


.  -  2c .  .  +  c . 


3  z  .  . 

i/D 

h2 

<i£) 

3z;  .  . 

i/D 

c .  ..  . 

1+1,3 

"  Ci-l/j 

2h 

(a2=) 

c . 
1/ 

j  +  1 

-  2c .  .  + 

i/3 

3R 

1/3 

k2 

r 

k  |r  <R6(R> 

3  C  v 

3R' 

1/ j 

(R)ifj  l 

i-1'! 


■  •  -i 
1^~1 


j  +  1/2 


(c  .  .  , ,  -c  .  . ! 

i,3+l  1,3^ 


ail. 53) 


[r6  (R)]i,  j_i/2  (ci,j  " 


>A' 


* 


•  ' 
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where  h  The  grid  spacing  in  the  axial  direction, 

and  k  =  The  grid  spacing  in  the  radial  direction. 


The  variation  of  radial  dispersion  coefficient 


and  hence  radial  dispersion  group  in  the  radial  direction 
is  derived  from  the  peclet  number  variation  as  suggested 
by  Fahein  and  Smith  (12) : 


PeQ  +  F(R)m 


Pe 


(III. 54) 


where  Pg  =  The  point  peclet  number 

Peo  =  T^e  value  of  peclet  number  at  the 
centre  which  is  taken  as  8. 

R  =  The  radial  position. 

=  Constants  depending  upon  particle  diameter 
and  tube  diameter. 

Various  sets  of  equations  can  be  derived  using 
(III. 54)  depending  upon  particle  dia.  and  tube  dia.  The 
relationships,  in  the  form  of  graphs,  of  F  and  m  in  terms 
of  the  ratio  dp/drp  (Particle  dia/Tube  dia)  are  available 
in  (12). 


A  particular  set  has  been  derived  using  the 


following  values: 


Particle  diameter  =  0.5"  spheres 


Tube  diameter 
Pe  =  8.0  +  15 (R) 6 


8.0 


(III. 55) 


Pe 


(III. 56) 


.8  B£>  a&Ahl  lo  «  ci  r 
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Multiplying  the  numerator  and  denominator  of 


equation  (III.  56)  by  d 2  and  rearranging: 


d 

Pe  =  ( 


dmu 
T  av 


dT  Dr(R) 


) 


or 


Pe  =  (gi-)/2MR) 


(III. 56 ) 


T  =  2R  where  R  =  Radius  of  the  tube 
o  o 

and  3 (R)  =  PR  ^  (Radial  dispersion  group) 

u  R 
av  o 

Combining  equations  (III. 55)  and  (III. 56) 
gives  after  rearranging: 


B  (R)  = 


2  (d p/ d ip) 


(III. 57 ) 


8.0+15 (R) 


Hence  ecruation  (III.  57)  represents  the  variation 
of  the  radial  dispersion  group  with  the  radial  position. 

The  solution  to  the  upper  half  of  the  reactor 
was  obtained  because  of  the  radial  symmetry.  The  partial 
differential  equation  (III. 46)  along  with  (III.  52)  is 
discretized  using  the  finite  difference  formulations  as 
given  by  equation  (III.  53)  to  get  a  set  of  ordinary 
differential  equations  as  given  below.  The  grid  is  as 
shown  in  figure  Ill-d. 


dc 


de 


- ( 2a  +  4 y  3 (R) )c1+(a-|n (R) )c2  +  4Y3 (R)cg 


+^2  (“+5  n  (R)  > 

n 


(III. 58 .1) 


. 


os-  si  ^  t  :»  t  '  i  qA  :  j  \c>  j  A : 
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dc. 


de  h‘ 


(a+^-n  (R)  )c1-  ( 2a  +  4  y  3  (R)  )c2  +  (a-~n  (R)  )c3+4Y3  (R)c? 


(III. 58. 2) 


dc. 


dG  h‘ 


(a+|n (R) )c2- (2a+4 y  3 (R) )c3+ (a-|n (R) )c4+4y3 (R)cg 


(III. 58. 3) 


dc 


de 


(a+jn (R) ) c3“ (2a  +  4 y  3 (R) )c4  + (a-|n (R) )c5+4Y3 (R)c9 


(III. 58. 4) 


dc, 


1  r- 


de  h‘ 


(a+jn  (R)  )c4_  (a+^-n  (R)+4y3  (R)  )c<-  +  4y3  (R)c^q 


(III. 58. 5) 


dc. 


1  r- 


d0 


X(R3(R))^i/2ci- 


(2a+— (  (R3  (R)  )lf  i/2+(R6  (R)  )l,l/2) 


h 


a 


+  (a  2n(R))c7+k  (R)  )  1/ 3/2Cn 


+— 2 (a+^n (R)  (III. 58. 6) 
n 


dc. 


de  h‘ 


—  (R8 (R) )2,l/2c2+(a+tn (R) )c6_ 

k  • 


(2a+X( (Re {R) )2> 3/2 


+  (RB(R))2  1/2) 


c7+(a  2n (R) )cg+  (R3 (R) )2#3/2c12 

K 


(III. 58. 7) 


dc 


8 


de 


—  (R3  (R)  )  3  i/2c3+(a+§'n  (R)  )c7' 
k  '  / 


(2a+i(  (RB  (R)  ) 


3,3/2 


+  (Rf5(R))3,l/2> 


CQ+  (a-5-n  (R)  )  C-+—  (RB  (R)  ) 


'8 


3 , 3/2  13 


(III. 58 .8) 
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dCg  -  1 

de  h' 


X(RB  (R)  >4,1/2c4+(a+|rl  (R)  )c8_ 


2a+i(  (RB  (R)  ) 


4,3/2 


+  (RB(R))4,l/2> 


cg+(“  2n  ^R^  C10+^RB  *R^  4 , 3/2C14 


(III. 58. 9) 


dc10  =  i 

d8  h' 


Y 


—  (R6(R))5  l/2C5+  ^a+7n  c9_ 


(a+|n  (R)  )  +— (  (RB  (R)  )  5  1/2 
k 


+  (RB(R))5,3/2> 


Cln+X(RB  (R)  ) 

k 


5,3/2c15  (III. 58.  10) 


dcll  _  1 
de  h' 


1 — (RB  (R)  )  . 

2k  1-3/2  6 


(2a+l—  (  (RB  (R)  )  ,  ,,+  (RB  (R)  ) ,  ,  .-) 


c11+(.-jn(R))c12+l-(RB(R))lf5/2c16 


+ly(ci+£n  (R)  ) 
hi  ^ 


(III.58.il) 


dc12  =  i 

de  h‘ 


2k (Re ^  2, 3/2C7  + (a+2n (R) )cll 


(2a+^(  (RB  (R)  )  9  ,/9+ 
2k  2'5/2 


(R3 (R) ) 2  t 3/2 } 


C12+  2n  (R^  Cl3+2k  (Re  2 , 5/2C17 


(III. 58 .12) 


dc13  =  l 
de  h‘ 


2k(R6  (R)  )3/3/2C8+(a  +  2n  (R)  )C12' 


2a+^-(R6  (R)  )  -  ,/9+ 
2k 


(r6(r))3/3/2) 


c13+(a  2n (R) )ci4+2k(RB (R) *3,5/2C18 


(III. 58. 13) 


t 
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dc14  = 
d0  h‘ 


2k  (R6  (R)  )  4 , 3/2C9+  (ot+2n  (R)  )c13 


2a+^-(RB  (R)  )A  t-/9+ 
2k  4'5/2 


(R6(R))4/3/2) 


c14+  (a  2n (R) ) c15+2k (R6 (R) } 4, 5/2C19 


(III. 58. 14) 


dc!5  _  1 
de  h' 


— — (RB  (R)  )  c  ,/0c1n+(a4n(R))c1,- 


2k 


5,3/2  10  v  2 


14 


(a+^-n  (R)  )  +  2k 


( (R6 (R) ) 5/ 3/2 (R3  (R) ) 3/2) 


C15+^(R6(R))5,5/2C20 


(III. 58. 15) 


dc16  1 

d8  h: 


—  (RB  (R)  ) 


C  ,  ,  - 


3k 


1 , 5/211 


(2a+^-(  (RB  (R)  )  .  ,,,+  (R6(R))1  /0) 

3k  1,5/2  1,7/2 


C16+ (a  2n (R) )C17+3k (R6 (R) ) 1,7/2C21 


+^-(a+^-n  (R)  ) 
n  Z 


(III. 58 .16) 


dc 


17 


de  h‘ 


—  (RS(R))2,5/2C12+(a+ln(R))C16-[a<+^lR  (R))2,5/2+ 


3k 


(R6(R))2/7/2) 


C17+  2n  ^R^  C18  +  I,  (R3  (R)  )  2, 7/2C2  2 

3k  ' 


(III. 58.17) 


) 
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dc18  1 


de 


(RS (R) } 3,5/2C13+ (a+2n (R) )c17 


2a+l-((R^(R)) 

3k 


3/5/2 


(R6  (R)  )  r7 /2^ 


c18+  (a-rn  (R)  )c19+^(RB  (R)  )  3f  i/2c23 


dc19  =  \ 

de  h; 


3k (Re (R) } 4, 5/2C14+ (a+2n (R) )c18 


(III. 58. 18) 
2a+- —  ( (Rg (R)  ) 


3k 


4/5/2 


+  (Re(R))4,7/2) 


C19+  2n  ^R)^  c2  0+3k  ^Re  *R^  4 , 7/2C24 


(III. 58. 19) 


dc20  _ 

de  h; 


—  (R6  (R)  )  r  c  /oci  c+  (ot+&n  (R)  )  c..  n- 


3k 


5 , 5/215  2 


19 


(a+yn (R) )+2_ 
z  3k 


( (Re (R) ) 5f5/2+ (R3  (R) ) 5, 7/2) 


C20+3k(Re(R))5,7/2C25 


(III. 58. 20) 


dc21  1 


de  h‘ 


— —  (RB (R) ) i  7  /oci a~ 
^k  1 / 7/2  16 


2a+^((RMR))l,7/2+(R6(R))l,9/2) 


C21+^a  2n^R^C22  +  4k^RS(R^l , 9/2C26 


4  y  ( a+yH  (R)) 

*1  Z 


(III. 58 .21) 


dc22  _  1 

de  h‘ 


1 ,  (R3 (R) ) 2 , 7/2C17+ (a  +  2n  ^R) J  C21 
4k  ' 


2a+*-((R3(R)),  7/7 
4k  Z'//Z 


+  (RB(r))2/9/2) 


C22+  2n  ^R^  C2  3+4k  ^RB  (R)  )  2 , 9/2C27 


(III. 58 . 22) 
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dc23  

de  h' 


Y 


h 


4k (Re (R) } 3,7/2C18+ (a+2n (R) )c22" 


2a+- —  (R8  (R)  ) 


4k 


3/7/2 


+(Re(R))3,9/2} 


C23+(a"In (R) )c24+lk  (Re  (R) ) 


3 , 9/228 


(III. 58. 23) 


dc2  4  ..  1 

de  h‘ 


4k (R3 (R) } 4/7/2C19+ (a+2n (R) )C23 


2a+^-(  (.RB  (R)  )  . 

4k  4,//^ 


+(R6(R))4/9/2) 


C24+  2n  (R^  c2  5+4k  ^R3  ^R^  4 , 9/2C28 


(III.  58 .24) 


dC25  _  1 

de  h' 


~ — (R$  (R)  )  c  ^/0con+(a+^n  (R)  )c„„- 


4k 


5,7/2  20  2 


24 


(a+&n  (R)  )  (R6  (R)  , 

2  4k  5 


+  (R6(R))5/9/2) 


C25+4k (R6 (R) } 5,9/2C30 


(III. 58. 25) 


dc26  =  i 

de  h: 


— (Re (R) ) 


c  „ ,  — 


5k 


1,9/2  21 


2a+5k(R6 (R) }l,9/2 


26 


+  (a-jn  (R)  )  C27+^2’^a+^Lri  ) 

h 


(III. 58 .26) 


dc27  = 

de  h‘ 


^  (R3 (R) ) 2  9/2C2  2+  ^a  +  2n (R) ^  c2  6' 
5k 


2a+- —  (R6  (R)  ) 


5k 


2,9/2 


C27+  ^  2  ^R)  *  c28 


(III. 58. 27) 


,7/2 


- 
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dc28  
de  h‘ 


i-(R6 (R) ) 3,9/2C23+ (a+ln  (R) )c27_ 


2«+l-(RB(R))3>9/2 


c28  +  (R)  )c 


29 


(III. 58. 28) 


dc29  =  * 
de  h; 


5k (R6 (R) ) 4  f 9/2+ (a+2n (R) > c28 


2^1-^))^ 


'29 


+  (a-|n(R))c30 


(III. 58. 29) 


dc 


30 


de 


h‘ 


Y 


5k (R6 (R) ) 5  r 9/2c25+ (a+2n ^  c29 


(a+~-n  (R)  )  +— 
z  5k 


(R6 (R) ) 


5,9/2 


'30 


(ill.  58. 30) 


The  set  of  ordinary  differential  equations 
(III. 58.1)  through  (III. 58. 30)  can  be  represented  by  the 
following  matrix  differential  equation  as  discussed  earlier: 


dw  (e  ) 

-  =  -  A*w(e)  +  s'  (6)  (III. 59) 

de 


where  A*  =  The  original  coefficient  matrix, 
s/  (6)  =  The  boundary  condition  vector. 

*w(6)  =  The  vector  of  unknowns. 

This  case  was  tried  but  the  eigenvalues  of  the 

\ 

original  coefficient  matrix  did  not  converge  even  after 
90  iterations  corresponding  an  error  criteria  of  0.001. 


* 


c(e)  and  w(0)  have  the  same  meaning  here. 


. 


8 
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(b)  Only  Dr  a  function  of  R. 


This  case  is  simpler  as  compared  to  the  one 
discussed  earlier.  The  velocity  profile  is  assumed  to 
be  flat  and  the  variation  of  radial  dispersion  group  with 
radial  position  is  as  given  by  (III. 57)  corresponding  to 
a  particular  set  of  variables  as  defined  there. 

The  partial  differential  equation  describing 
this  process  is: 


3c 

3t 


D 


32c 

L3x2 


1  3_ 
r  9r 


(r 


D  — ) 
R9r' 


(III. 60) 


Define  the  dimensionless  quantities  as  given 
by  (III. 45)  except  n  (R)  which  is  now  unity.  On  rearranging 
and  substituting  the  values  we  get: 


9c 

96 


3  2c 


R  9 R (Re (R)3r} 


(III. 61) 


The  partial  differential  equation  applicable 
at  the  centre  is  given  by: 

If  =arr  -  If  +2^  S(R>  r!  (III-62> 

9  Z  9  Z 

Taking  advantage  of  the  radial  symmetry,  the 
solution  to  the  upper  half  of  the  reactor  is  obtained. 
The  finite  difference  grid  is  as  shown  in  figure  Ill-d. 


■ 
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Both  the  partial  differential  equations  (III. 61)  and 
(III.  62)  are  discretized  using  the  set  of  finite 
difference  formulations  as  given  by  (III. 53)  to  get 
a  set  of  ordinary  differential  equations.  This  set 
is  a  particular  case  of  the  previous  set  defined  by 
(III. 58.1)  through  (III. 58. 30)  and  can  be  derived 
by  substituting  n (R)  =1  in  that  set. 

The  set  of  ordinary  differential  equations 
can  be  represented  by  a  single  matrix  differential 
equation  (III. 59)  .  The  matrix  A*  is  converted  into 
the  real  symmetric  matrix  A  using  similarity  transfor¬ 
mation  A  =  D  1A*D  as  discussed  in  Chapter  II.  For  the 
details  of  various  matrices  and  the  corresponding  results, 
the  reference  is  made  to  the  Appendix  Cl.  The  results 
of  this  model  are  compared  with  the  simpler  one  dimensional 
model  and  the  details  are  given  in  Chapter  V. 

C .  EIGENVALUES  AND  EIGENVECTORS  OF  A 

The  original  coefficient  matrix  A*  as  discussed 
earlier  is  converted  to  the  real  symmetric  form  using 
similarity  transformation.  The  methods  used  for  finding 
out  the  eigenvalues  and  eigenvectors  of  a  symmetric  matrix 
can  be  classified  in  two  main  categories: 

1.  Non-Iterative  or  Direct  Methods:  These  methods  are 
more  time-consuming  on  the  computer  and  involve  a  large 
number  of  multiplications.  The  methods  belonging  to  this 


. 
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category  are  those  due  to  Leverrier,  Hessenberg,  and 
Givens .  Some  details  of  these  methods  are  described 
in  Lapidus  (18 )  . 

2.  Iterative  Methods:  These  methods  are  mostly  used  on 
the  digital  computer .  These  methods  are  advantageous  in 
certain  respects  as  compared  to  the  direct  methods,  namely; 

(a)  All  the  eigenvalues  are  determined  at  the  same  time. 

(b)  Using  a  set  of  orthogonal  transformations,  all  the 
eigenvectors  are  determined  simultaneously. 

Some  of  these  methods  are  those  due  to  Jacobi 
(25)  and  Householder  (33) . 

Complete  details  of  these  methods  are  available 
in  various  books  on  numerical  analysis  and  the  development 
of  the  algorithms  is  not  attempted  here.  Jacobi's  method 
has  been  used  in  this  thesis  and  a  brief  descriptions  of 
the  method  is  presented  here. 

Jacobi's  Method:  This  method  applies  to  real,  symmetric 
and  Hermetian  matrices  and  it  yields  all  the  roots  at  one 
time.  The  procedure  involves  the  annihilation  of  the  off 
diagonal  elements  using  a  series  of  orthogonal  matrices. 

The  procedure  is  illustrated  considering  a  second  order 
matrix  A.  A  new  matrix  B  is  formed  by  the  transformation: 

B  =  Q1TAQ x  (III. 63) 


. 
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where 


cos  a 


-sm  a 


Q1 


(III. 64) 


sin  a 


cos  a  _ 


The  transformation  of  this  type  is  known  as 

Rotation . 

Now  if  the  off  diagonal  elements  of  matrix  B 
are  to  be  zero,  then  the  following  equation  or  identity 
must  be  satisfied. 


2a 


12 


tan  2a 


(III. 65) 


and  the  choice  of  a  as  given  in  (III.  65)  annihilates 
the  off  diagonal  elements.  The  main  diagonal  elements 
of  B  are  and  p the  eigenvalues  of  A  (the  eigenvalues 
of  A  and  B  are  same  since  they  are  similar) . 


In  the  case  A  of  order  n,  the  matrix  is 


replaced  by: 


1 


1 


1 

(cos  a) . . 

li 


1 


(III. 66) 


1 


1 


■ 
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This  is  modified  indentity  matrix  with  cos  a  as  the  ith 

and  jth  diagonal  elements,  sin  a  as  the  jth  row  and  ith 

column  element  and  -sin  a  as  the  i^  row  and  column 

element.  This  will  annihilate  the  element  a.,  and  a... 

ID  D1 

The  value  of  a  is  given  by  the  following  expression: 

2a .  . 

tan  2a  =  13  (III. 67) 

a .  . -a  .  . 

li  j  j 

The  largest  off  diagonal  elements  is  first 
annihilated,  but  it  can  take  a  non-zero  value  at  a  later 
stage.  Hence  the  method  has  no  fixed  number  of  iterations. 

The  result  is  given  by  the  following  equation 
when  the  required  convergence  has  been  achieved. 

QrT  Qr_1T  - Q2T  —2  *  *  *  £r-l  Qr  =  -  (HI.  68) 

where  r  refers  to  the  number  of  iterations  and  P  is 
the  diagonal  matrix  of  eigenvalues  of  A. 

If  the  matrix  Q2  • • •  Qr-1  Qr  is  denoted  by 
Q  and  QrT  Qr_^T  •  •  .  Q. ^  Q^T  by  QT,  the  overall 

transformation  is  given  by 

QTA  Q  =  P  (III. 69) 

Premultiplication  by  Q  gives: 

A  Q  =  Q  P  (III. 70) 

where  Q  =  The  matrix  of  eigenvectors  of  A. 


■ 
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IV.  FORWARD  PROBLEM 

(HIGHER  ORDER  CORRECT  MONOTONE  TYPE  FINITE 
DIFFERENCE  FORMULATIONS) 


In  this  chapter  the  solutions  to  the  dispersion 
model  equation ,  one  dimensional  homogeneous  case,  is 
presented  using  higher  order  correct  monotone  type  formula¬ 
tions  as  suggested  by  Bramble  and  Hubbard  (6)  and  Price  (22)  . 

The  computational  molecules  used  in  deriving  the  coefficient 
matrices  are  presented  in  figure  IV-a. 

No  analytical  solution  is  available  corresponding 
to  the  various  sets  of  boundary  conditions  used  in  this 
thesis.  Therefore  to  get  an  overall  idea  of  the  accuracy  of  the 
problem  the  results  of  a  lower  point  grid  are  derived  from 
those  of  a  higher  point  grid  and  compared.  The  accuracy  of  the 
various  finite  difference  formulations  is  tested  using  the 
analytical  solution  to  the  problem  (4)  for  some  other  boundary 
conditions.  The  coefficient  matrices  are  developed  for  each 
of  these  cases  and  the  techniaues  used  for  finding  out  the 
eigenvalues  and  the  eigenvectors  of  the  coefficient  matrix 
are  also  discussed  in  some  detail  at  the  end  of  this  chapter. 

Two  types  of  finite  difference  formulations  have 
been  used  depending  upon  the  significance  of  the  convective 
term  as  discussed  in  chapter  II. 
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FIGURE  I V-a  HIGHER  ORDER  CORRECT  MONOTONE  TYPE  FINITE  DIFFERENCE  APPROXIMATIONS 
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A.  ONE  DIMENSIONAL  HOMOGENEOUS  CASE 

(a)  USING  CENTRAL  DIFFERENCE  SCHEME  FOR  THE  CONVECTIVE 
TERM  (3c/3z):- 

The  partial  differential  equation  describing  one 
dimensional  homogeneous  problem  is  given  by: 

2 

3c  8  c  8c 

-  =  a  - o'  ”  -  (IV. 1) 

80  8z  8  z 

where  the  symbols  have  their  usual  meaning. 

The  concentration  profiles  are  studied  using  the 
finite  difference  formulations  as  given  by  (IV. 2)  and 
(IV. 3)  corresponding  to  a  particular  value  of  a.  The  equa¬ 
tion  (IV. 1)  is  solved  using  ordinary  as  well  as  Danckwerts 
boundary  conditions. 

A  finite  difference  grid  is  considered  and  the 
length  (0  <_  z  <_  1)  is  divided  into  a  finite  number  of  incre- 

■L. 

ments  (n)  of  width  h  each,  with  a  slab  of  width  ^  near  the 
boundary  where  the  value  of  the  flux  is  specified.  The  grid 
is  shown  in  figure  IV-b. 

By  discretizing  the  space  derivatives  of  equation 
(IV. 2)  using  the  finite  difference  sets  as  given  by  (IV. 2) 
and  (IV. 3),  the  partial  differential  equation  can  be  trans¬ 
formed  to  a  set  of  ordinary  differential  equations. 

The  finite  difference  expressions  used  in  deriving 
the  set  of  ordinary  differential  ecruations  are: 


8  7 
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a2c 

(  — n  ) 


1  r- 


2  '  2 
i  12h 


9C  1 
(  —  >.  =  -A 

9  z  l  12h 


;  12  ci-i  +  24  ci  -  12  ci+i 


6h  c._1  -  6h  c.+1 


(IV. 2) 


The  above  set  is  applicable  for  only  i  =  1,  where 
i  refers  to  the  grid  point  number. 


9  2c 

(  —^7  ) 


az“  i  12h‘ 


ci+2  16  ci+1  +  30  c.  16  ci_1  +  ci-2 


ac 

(  — 


a  z  ^  i 


12h‘ 


h  ci+2  "  8h  ci+l  +  8h  ci-l  -  h  ci-2 


(IV. 3) 


The  above  set  is  applicable  for  all  the  other  grid 
points  i.e.  i  =  2  to  n  (where  n  is  the  total  number  of  grid 
points) . 

Using  the  above  expressions,  the  following  set  of 
ordinary  differential  equations  is  derived  for  a  five  point 
grid : 


dc 


de 


1  r- 

-  24a 


12h  L_ 


+  12  (a-  j)  C2 


+ 


■4  &2  <«  +  7)  H 


12h‘ 


(IV. 4.1) 


dc. 


de 


12h‘ 


16  (a  +  |)  c1 


30a  C2  +  16  (a 


-) 

2 


c  ~  (a-  h) 
3 


1 

12h 


[a  +  Q 


(IV. 4 . 2) 
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dc 


de 


1 2h  L_ 


-  (a  +  :h)  c1  +  16  (a  +  j)  c  -  30a  c-  +  16 


(a  "  2-)  c4  -  (a  -  h) 


(IV. 4 .3) 


dc 


d0  12h‘ 


-  (a  +  h)  c2  +  16 (a  +  |)  c3  -  30a  c4  + 


(15a  -  7h)  c. 


( IV . 4 . 4  ) 


dc, 


de  12h‘ 


-  (a  +  h)  c-  +  (15a  +  9h)  c„  -  (14a  -  8h)  c, 


(IV. 4. 5) 


To  satisfy  the  second  boundary  condition  the  follow¬ 
ing  equations  are  employed: 


Ci+2 

Ci+1 

(for  i  =  4) 

(IV. 4 .6) 

Ci+1 

Ci+2 

ll  ii 

o  o 

H-  H- 

1 

(for  i  =  5) 

( IV . 4 . 7 ) 

The  set  of  ordinary  differential  eauations  (IV. 4.1) 
through  (IV. 4. 5)  may  be  put  in  the  form  of  the  following 
matrix  differential  equation: 


90 


d_ 

de 


x 


rc!- 

C2 

C3 

C4 

1 

2 

12hZ 

_°5  _ 

ci 

C2 

1 

C3 

+  — 

<J 

12n 

C4 

c  r- 

5 

24a  -12  (a  -  |) 

-16  (a  +  j)  30a 

(a+h)  -16  (a+ 

(a+h)  - 

12  (a  +  j)  _ 

-  (a  +  h) 

0 

0 

0 


-16  (a-  j)  (a-h) 

30a  -16  (a-j)  (a-h) 

16(a+|)  30a  - (15a-7h) 

(a+h)  -(15a+9h)  (14a  +  8h) 


(IV. 5) 


According  to  equation  (III.  31)  the  various  matrices  can  be  designa¬ 
ted  as : 


A* 


1 

2 

12hz 


24a 

-12  (o-|) 

-16  (a+|) 

30a 

-16(a-|)  (a-h) 

(a+h) 

-16  (a+|) 

30a  -16(a-|) 

(a-h) 

(a+h) 

-16  (a+^)  30a 

- (15a-7h 

(a+h)  -  (15a  +  9h) 

(14a+8h) 

and 

s'  (8)  =  — 

12h' 


12(a+|) 

-  (a+h) 

0 

0 


(IV. 6) 


0 


• 
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The  coefficient  matrix  A*  in  this  case  is  unsym- 
metric  and  it  satisfies  the  following  conditions  as  given 
in  ( 22 )  i . e . 

The  matrix  A*  is  monotone  and  there  exists  a  real 
(nxn)  matrix  R  which  satisfies  the  following  properties: 


M  =  A*  +  R  is  monotone 


M  1R  >  0 


(IV. 7) 


p  (M  XR) <  1 


where  p  is  the  spectral  radius  of  (M  1R) ,  and  is  defined  by 


P  (M  ^R)  =  Max  | Xi 


(IV. 8) 


where  A ^ ,  (i  =  1  to  n)  are  the  eigenvalues  of  (nxn)  matrix 


(M  1R)  . 


The  solution  of  the  matrix  differential  ecruation 


(IV. 5)  is  given  by: 


C  ( 0  )  =  Q  E(0)  Q 


-1 


o(0)(e)  + 


0 


Q  E  1  (n )  Q  1  s(n)  dn 


Jo 


(IV. 9) 


where  n  is  a  dummy  variably 
Q (0  ) 


Q 


Initial  condition  vector 

The  matrix  of  eigenvectors  of  A* 


Inverse  of  the  matrix  of  eigenvectors 
The  boundary  condition  vector 


Q 


-1 


s  (n ) 


The  equation  (IV. 5)  is  solved  using  both  sets  of 
boundary  conditions  as  described  previously.  The  matrix 
satisfying  the  properties  given  by  (IV. 7)  has  got  all  its 
eigenvalues  real,  positive  and  distinct. 

The  following  parameters  are  used 


a  =  0.2 

h  =  0.1818 


n  =5 


c 


(0) 


(6  )  = 


0 


(IV. 10) 


and  the  results  are  presented  in  Appendix  E.  The  coefficient 
matrix  A*,  eigenvalues,  and  the  matrix  eigenvectors  Q  are  also 
given  in  Appendix  E. 

The  results  of  a  five  point  grid  are  derived  from  those 
of  a  ten  point  grid  and  compared  with  the  values  using 
semi-analytical  solution,  in  order  to  get  an  overall  idea  of 
the  accuracy.  A  summary  of  results  corresponding  to  both 
sets  of  boundary  conditions  is  presented  in  the  tabular  form 
in  the  tables  IV. 1  and  IV. 2. 

The  relevant  computer  programs  along  with  the  com¬ 
plete  set  of  results  are  given  in  Appendix  E. 


X 
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TABLE  IV. 1 


One  Dimensional  Homogeneous  Case 
(Using  Ordinary  Boundary  Conditions) 


Higher  Order  Correct  Monotone  Type  Finite  Difference 
Formulations . 

Smmnary  of  Results*  Five  point  Grid  Comparison.  (The 
results  of  a  five  point  grid  are  derived  from  those  of  a 
ten  point  grid  using  interpolation  and  compared  with  the 
generated  values  using  semi-analytical  solution) 


Grid 

Reduced^^^'  nt 
Time  6 

1 

3 

5 

0.2 

0.72989 

0.74330 

0.01341 

0.18264 

0.17610 

-0.00654 

0.01355 

0.01092 

-0.00263 

0.4 

0.88411 

0.88846 

0.00435 

0.49256 

0.49707 

0.00451 

0.17797 

0.17518 

-0.00279 

0.6 

0.94010 

0.94133 

0.00123 

0.69250 

0.69674 

0.00424 

0.41678 

0.42057 

0.00347 

o 

• 

00 

0.96611 

0.96661 

0.00050 

0.81227 

0.81550 

0.00323 

0.61678 

0.62266 

0.00588 

1.0 

0.97993 

0.98041 

0.00048 

0.88469 

0.88758 

0.00289 

—  —  —  ■■■ 

0.75655 

0.76227 

0.00572 

*The  first  entry  in  each  block  refers  to  the  value  of  C,  cal¬ 
culated  by  semi-analytical  solutions;  the  second  entry  refers 
to  the  interpolated  value;  the  third  entry  represents  the 
deviation:-  interpolated  value  -  the  value  generated  using  semi- 
analytical  technique. 

A  complete  set  of  results  is  available  in  Appendix  E. 


. . -  . .  — 


• 
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TABLE  IV. 2 


One  Dimensional  Homogeneous  Case 
(Using  Danckwerts  Boundary  Conditions) 


Higher  Order  Correct  Monotone  Type  Finite  Difference 
Formulations . 

Summary  of  Results*.  Five  point  Grid  Comparison  (The 
results  of  a  five  point  grid  are  derived  from  those  of  a 
ten  point  grid  using  interpolation  and  compared  with  the 
generated  values  using  the  semi-analytical  solution  tech¬ 
nique)  . 


Grid 

Reduced'''''^nt 
Time  6 

1 

3 

5 

0.2 

0.48194 

0.46871 

-0.01323 

0.10524 

0.08879 

-0.01645 

0.00705 

0.00468 

-0.00237 

0.4 

0.68654 

0.68892 

0.00238 

0.33571 

0.32574 

-0.00997 

0.10957 

0.09878 

-0.01079 

0.6 

0.79872 

0.80491 

0.00619 

0.52845 

0.52654 

-0.00191 

0.28894 

0.28114 

-0.00780 

0.8 

0.86657 

0.87323 

0.00666 

0.66954 

0.67242 

0.00288 

0.46854 

0.46695 

0.00159 

o 

• 

I — 1 

0.90989 

0.91606 

0.00617 

0.76962 

0.77503 

0.00541 

0.61630 

0.61958 

0.00328 

*  The  first  entry  in  each  block  refers  to  the  value  of  C, 
calculated  by  semi-analytical  solution;  the  second  entry 
refers  to  the  interpolated  value;  the  third  entry  represents 
the  deviation:-  interpolated  value  -  the  value  generated  using 
semi-analytical  solution. 

A  complete  set  of  results  is  available  in  Appendix  E. 


. 
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B.  USING  BACKWARD  DIFFERENCE  SCHEIlii  (24)  FOR  THE  CONVECTIVE 

3c 

TERM  (  -  )  :  - 

9  Z 


In  many  problems  the  convective  term  is  large  and 
for  such  cases  Price  et  al  (24)  suggests  the  second  order 
correct  backward  difference  approximation  for  the  convective 
term  as  given  by  (II.  10)  and  is 


3c  ^  0.5  Ci_2  -  2  ci_1  +  1.5 

3  z  h 


(IV. 11) 


The  above  equation  may  be  used  for  all  grid  points 
except  for  those  next  to  the  boundary  where  one  has  to  be 
satisfied  with  first  order  correct  expressions. 


The  equation  (IV. 1)  can  be  discretized  using  the 
finite  difference  formulations  (IV. 12)  and  (IV. 13). 


32c 


,2  • 

3  z  l 


)  =  - 


12h‘ 


-  12  c.  .  +  24  c.  -  12  c. , . 

i-l  l  l+l 


3c 

(  - ) 

3z  i 


h 


(IV. 12) 


The  above  set  is  applicable  for  only  i  =  1,  where 
i  refers  to  the  grid  point  number 


. 


. 
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3  2c 

(  —  )  =  - 
3z  i 


12h‘ 


^i+2  ‘  16  ci+l  +  30  ci  ~  16  ci_i  +  ci_2 


3c 

(  —  ) 

3  z  i 


0.5  c.  -2c.  _  +  1.5  c. 

1~ 2  1—2  i 


(IV. 13) 


The  above  set  is  applicable  for  all  the  other  grid 
points  i.e.  i  =  2  to  n  (where  n  is  the  total  number  of  grid 
points . 

The  following  matrix  differential  eauation  is  obtained 
using  the  sets  (IV. 12)  and  (IV. 13). 


-cl- 

_(24a  +  12h)  -12a 

C2 

- (16a+24h)  (30a+18h)  -16a  a 

C3 

1 

(a  +  6h)  -  ( 16a+24h)  (30a  +  18h)  -16a  a 

2 

12hi 

C4 

(a  +  6h)  - (16a  +  24h)  (30a+18h)  -15a 

LC5_ 

(a  +  6h)  -  (15a+24h)  (14a+]8h) 

ci 

12  (a+h) 

C2 

- (a+6h) 

c3 

+  /  2 

0 

12h 

C4 

0 

_C5_ 

0 

(IV. 14) 


. 
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Equation  (IV. 14)  may  also  be  put  in  the  form: 

dc  (0 ) 

—  =  -  A*  c(e)  +  s'(0)  (IV. 15) 

The  coefficient  matrix  A*  is  unsymmetric,  but  not 
diagonally  dominant  and  is  monotone.  Hence  it  has  got  all 
the  eigenvalues  real,  distinct  and  positive. 

The  solution  to  the  matrix  differential  ecruation 
(IV. 15)  is  given  by  (IV. 9)  and  the  parameters  used  are  as 
given  in  (IV. 10) . 

A  summary  of  results  using  the  backward  difference 
scheme  and  the  central  difference  scheme  for  the  convective 
term  is  given  in  tables  IV. 3  and  IV. 4. 
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TABLE  IV. 3 

One  Dimensional  Homogeneous  Case 
(Using  Ordinary  Boundary  Conditions) 


Higher  Order  Correct  Monotone  Type  Formulations 


Summary  of  Results*.  Five  Point  Grid.  Central  and  Back¬ 
ward  Difference  formulations  for  the  convective  term: 


Grid 

Reduc^P°int 

Time 

1 

3 

5 

0.2 

0.729894 

0.746987 

0.182635 

0.199510 

0.013554 

-0.011133 

o 

• 

0.884112 

0.879907 

0.492555 

0.515796 

0.177966 

0.195374 

VO 

• 

o 

0.9501 

0.932722 

0.692501 

0.704651 

0.416783 

0.457964 

0.8 

0.966106 

0.959845 

0.812274 

0.818074 

0.616776 

0.654471 

1.0 

0.979933 

0.975450 

0.884690 

0.887506 

0.756546 

0.783772 

*  The  first  entry  in  each  block  refers  to  the  value  using 
central  difference  scheme  for  the  convective  term  and  the 
second  entry  using  the  backward  difference  scheme. 


.  

*  I 
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TABLE  IV . 4 

One  Dimensional  Homogeneous  Case 
(Using  Ordinary  Boundary  Conditions) 

Higher  Order  Correct  Monotone  Type  Formulations 


Summary  of  Results*.  Ten  Point  Grid.  Central  and  Back¬ 
ward  Difference  formulations  for  the  convective  term. 


Grid 

Point 

ReducecN. 

Time 

1 

3 

5 

7 

9 

CM 

• 

o 

0.881985 

0.880571 

0.558586 

0.566481 

0.255489 

0.259752 

0.081094 

0.075520 

0.017585 

0.010342 

0.4 

0.950738 

0.948105 

0.793119 

0.793709 

0.578828 

0.583590 

0.361881 

0 . 366455 

0.201137 

0.202516 

0.6 

0.974442 

0.972332 

0.888040 

0.886336 

0.754214 

0.755518 

0.591811 

0.596977 

0.446281 

0.455248 

o 

• 

00 

0.985539 

0.983962 

0.935353 

0.933153 

0.852749 

0.852253 

0.744875 

0.748335 

0.641463 

0.650337 

1.0 

0.991533 

0.990360 

0.961735 

0.959560 

0.910994 

0.909572 

0.842425 

0.843896 

0.774725 

0.780750 

*  The  first  entry  in  each  block  refers  to  the  value  using  the 
central  difference  scheme  for  the  convective  term  and  the 
second  entry  using  the  backward  difference  scheme. 
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C.  ACCURACY  OF  THE  FINITE  DIFFERENCE  FORMULATIONS 


The  accuracy  of  the  central  and  backward  difference 
scheme  for  the  convective  term  is  tested  using  an  analytical 
solution  to  the  equation  (IV. 1)  corresponding  to  the  follow¬ 
ing  set  of  boundary  conditions  (4) : 


I.C 

c  =  0 

at 

0=0 

0 

<_  z 

B.C 

o 

ll 

o 

at 

z  =  0 

6 

>  0 

c  =  1 

at 

z  =  1 

and  the  solution  is: 


(IV. 16) 


c 


2  E  (-l)n 
n=l 


mr 


(m)2  +  (— ) 
a 


X 


0.5  ( z  —  1 ) 

e  a  sin  (nTTz)  e 


2  2 


n  7T  a 


+ 


1_ 

4a 


e 


(IV. 17) 


The  equation  (IV. 1)  is  discretized  using  the  finite 
difference  sets  ((IV. 2)  and  (IV. 3))  and  ((IV. 12)  and  (IV. 13)) 
corresponding  to  the  boundary  conditions  set  (IV. 16). 

The  matrix  differential  equations  are  given  by: 


(i)  Using  central  difference  scheme  for 


8c 
3  z  * 
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d 

de 


"cl“ 

24a  - ( 12a-6h) 

C2 

- ( 16a+8h)  30a  -  (16a-8h)  (a-h) 

C3 

12h2 

(a+h)  -  (16a+8h)  30a  - (16a-8h)  (a-h) 

C4 

(a+h)  -(16a+8h)  30a  -(16a-8h) 

_c5  _ 

-  (12a+6h)  24a 

x 


cl 


12h‘ 


-  0 
0 
0 

-  (a-h) 
(12a-6h) 


(IV. 18) 


(ii)  Using  the  backward  difference  scheme  for  — 

9z 


rcr 

-  (24a+12h)  -12a 

C2 

-  (16a+24h)  (30a  +  18h)  -16a  a 

c3 

1 

(a  +  6h)  -  (16a  +  24h)  (30a  +  18h)  -16a  a 

12hz 

c4 

(a  +  6h)  -  (16a  +  24h)  (30a  +  18h)  -16a 

_  C5_ 

6h  -  (12a+24h)  (24a+18h) 

_ci“ 

0 

c2 

0 

C3 

C4 

+  X2 

12hz 

0 

-a 

_°5_ 

12a 

(IV. 19) 


. 
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It  has  been  found  that  the  central  difference  scheme 
is  better  as  compared  to  the  backward  difference  scheme  up 
to  a  value  of  a  slightly  greater  than  one  half  of  the  grid 
spacing.  For  a  value  of  a  =  where  h  is  the  grid  spacing, 
the  central  difference  scheme  fails  and  the  backward  differ¬ 
ence  scheme  is  applicable  at  this  stage. 

The  results  are  represented  in  the  tabular  form  for 
various  values  of  a  corresponding  to  the  two  types  of 
formulations  for  the  convective  term. 


* 
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TABLE  IV. 5 


One  Dimensional  Homogeneous  Case 


Summary  of  Results*.  Five  Point  Grid.  Comparison  of  Central 
and  Backward  difference  formulations  for  the  convective  term 


a  =  0.2 


Grid 

x.  Point 

ReduceaX. 

Time 

1 

3 

5 

0.2 

0.0005 

0.00032 

0.00123 

0.01968 

0.01852 

0.03197 

0.31639 

0.33511 

0.38404 

0.4 

0.00286 

0.00289 

0.00663 

0.0445 

0.04513 

0.0658 

0.37647 

0.39128 

0.43816 

0.6 

0.00512 

0.00544 

0.01067 

0.05854 

0.05972 

0.08313 

0.39824 

0.41155 

0.45837 

00 

• 

o 

0.00655 

0.00701 

0.01289 

0.066 

0.06739 

0.09194 

0.40817 

0.42092 

0.46782 

1.0 

0.00736 

0.00786 

0.01404 

0.0699 

0.07142 

0.09641 

0.41312 

0.42564 

0.47253 

The  first  entry  in  each  block  refers  to  the  value  of  C 
calculated  by  semi-analytical  solution  using  central  differ¬ 
ence  scheme  for  the  convective  term,  the  second  entrv  refers 
to  the  value  calculated  using  analytical  solution,  and  the 
third  entry  refers  to  the  value  using  backward  difference 
scheme  for  the  convective  term  (semi-analytical  solution) . 


. 

■ 
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TABLE  IV. 6. 


One  Dimensional  Homogeneous  Case 


Summary^of  Results^.  Five  Point  Grid.  Comparison  of  Central 
and  Backward  difference  formulations  for  the  convective  term. 


a  =  0.1 


Grid 

Reduced>N\°:''nt 

Time 

- - --S 

1 

3 

5 

- 

CN 

• 

O 

0.000024 

0.00000 

-0.00005 

0.00247 

0 .00068 
0.00384 

0.07517 

0.14032 

0.23892 

j 

0.4 

0.00007 
n  . 0  0  0  2 
0.00033 

0.00505 

0.00317 

0.01247 

0.10234 

0.17278 

0.27589 

0.6 

0. 00011 

0.000074 

0.00086 

0.00653 

0.00488 

0.01731 

0.11278 

0.1824 

0.28786 

00 

• 

o 

0.000134 

0.000124 

0.00123 

0.00729 

0.00579 

0.01983 

0.11709 

0.18601 

0.29284 

o 

• 

1 — 1 

0.00015 

0 .000156 
0.00145 

0.00766 

0.00624 

0.02114 

0.11897 

0.18753 

0.29518 

*  The  first  entry  in  each  block  refers  to  the  value  of  C 
calculated  by  semi-analytical  solution  using  central  differ¬ 
ence  scheme  for  the  convective  term,  the  second  entry  refers 
to  the  value  using  analytical  solution,  and  the  third  entry 
refers  to  the  value  using  backward  difference  scheme  for  the 
convective  term.  (Semi-analytical  solution) . 


• 
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B.  EIGENVALUES  AND  EIGENVECTORS  OF  A* 


The  method  used  for  finding  out  the  eigenvalues 
and  the  eigenvectors  of  a  real  unsymmetric  matrix  is  described 
in  this  section  and  the  detail  is  available  in  (34) . 

The  method  consists  of  three  steps :- 

Step  1:-  The  given  unsymmetric  matrix  A*  is  first  reduced 
to  the  Hessenberg  form  using  Householder's  method: 


Let  A 
— o 

and  A 
— r 


A*,  the  original  matrix 


Then  after  (n-2)  steps. 


(IV. 20) 


where  H  =  The  Hessenberg  matrix. 

The  other  symbols  are  as  given  below: 


II 

I  -  2  a) 

—  — r 

T 

CO 

r 

— 

m  2 

I  -  u  u/0kz 

—  — r  — r  2  r 

and  u .  = 

lr 

0  (i  =  1 

to  r ) 

u  ,  .  = 
r+1  ,i 

a  ,  + 

r+1 ,  r 

s  i  =  ((r+2)  to  n) 

u .  = 

i,r 

a . 

s  = 

r 

n 

1,2  . 
r+1  ai , r 

h 

2k2 

r 

2  - 

r  r+1 

s 

,r  r 

The  sign  is  chosen  to  be  that  of  a  , , 

r+l,r 


(IV. 21) 


(IV. 22) 


•s 

• 

106 


Step  2 : -  Once  the  Hessenberg  matrix  is  derived,  Newton's 

method  is  used  to  find  out  the  roots  of  the  characteristic 
equation.  First  F(z)  and  F’(z)  are  found,  where  F(z)  is  the 
value  of  the  characteristic  equation  and  F‘(z)  is  the  value 
of  the  first  derivative.  Then  a  new  estimate  of  z  is  found 
from  the  equation  (IV. 23). 

F(zk) 

Zk+1  "  zk  "  — - x  (IV. 23) 

F-(zk) 

If  the  value  of  z  has  converged  to  within  a  given 
tolerance  limit 


((zk+l  ‘  zk)/Max  (zk+1,  zk)  <  10  6) 

the  value  of  z  is  taken  to  be  the  root. 

If  the  first  r  zeros  have  been  found,  the  program 
suppresses  these  zeros  by  computing: 


gr  (z) 
(z) 


F  (z)/5  (z  -A .  . )  (IV. 24) 

i=l  11 

r 

[f  1  ( z )  /F  ( z )  -  I  1/  ( z  -  Ai.O  x  gr(z) 


where  A  ^  are  the  first  r  eigenvalues. 


(IV. 25) 


Step  3:-  Once  the  eigenvalues  are  found  within  the  pre¬ 
scribed  tolerance  limit,  the  next  step  is  to  find  the  eigen¬ 
vectors.  For  finding  out  the  eigenvectors  the  matrix 

~  xii  *)  is  tr i angular i zed  by  Gaussian  elimination  with 
complete  pivoting.  The  eigenvector  is  found  by  back  substitution 


« 


107 


The  eigenvectors  are  distinct.  For  a  root  of  multiplicity 
m,  which  has  r  <  m  distinct  eigenvectors  associated  with  it, 
the  remaining  (m  -  r)  eigenvectors  are  returned  as  null 
vectors . 
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V .  SUMMARY  AND  CONCLUSIONS 

1*  ^  general  solution  of  the  dispersion  model  equation  in 

its  semi-discrete  form  has  been  developed  The  discretiza¬ 
tion  of  the  space  derivatives  of  the  parabolic  partial 
differential  equation  gives  rise  to  a  set  of  ordinary  differ¬ 
ential  equations.  The  coefficient  matrix  of  this  system  is 
diagonally  dominant  and  unsymmetric.  For  some  problems  the 
coefficient  matrix  has  been  converted  to  the  real  symmetric 
form  using  similarity  transformation.  The  various  methods  of 
linear  algebra  and  matrix-  theory  have  been  made  use  of  in 
getting  a  general  solution  to  the  problem.  A  closed  form  of 
solution  has  been  obtained  in  terms  of  spatial  properties 
distribution,  the  eigenvalues  and  the  eigenvectors  of  the 
coefficient  matrix.  The  solution  has  been  tested  on  various 
problems  using  two  sets  of  boundary  conditions. To  get  an  over¬ 
all  idea  about  the  accuracy  of  the  solution  obtained  the 
results  of  a  lower  point  grid  are  derived  from  those  of  a 
higher  point  grid  using  interpolation  and  compared  with  the 
results  obtained  using  the  semi-analytical  method. 

2.  The  solution  to  the  one  dimensional  homogeneous  case  has 
also  been  obtained  using  the  higher  order  correct  monotone 
type  approximations.  The  coefficient  matrix  for  this  case  is 
unsymmetric,  monotone  and  may  or  may  not  be  diagonally  dominant. 
In  many  problems  of  this  type  the  convective  term  is  large  and 
for  such  cases  the  second  order  correct  backward  difference 
scheme  for  the  convective  term  is  recommended.  The 


accuracy 
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of  the  central  and  backward  difference  formulations  for  the 
convective  term  is  tested  by  taking  an  analytical  solution 
(4)  corresponding  to  a  simple  set  of  boundary  conditions.  The 
comparison  of  the  difference  between  the  analytical  and  semi- 
analytical  values  suggests,  that  the  central  difference  scheme 
for  the  convective  term  is  better  as  compared  to  the  backward 
difference  scheme  up  to  a  value  of  a  slightly  greater  than  one 
half  of  the  grid  spacing.  The  central  difference  scheme  fails 
for  a  value  of  a  =  where  h  is  the  grid  spacing  and  for  the 
values  of  a  <  ^  /  the  backward  difference  scheme  is  applicable. 
3.  The  main  objective  of  this  work  is  to  get  the  solution  in 
the  time  domain.  The  solutions  in  the  transformed  domain  have 
been  attempted  in  the  past  but  the  present  approach  is  better 
as  compared  to  the  Laplace  transform  approach.  Three  different 
input  signals  have  been  tried  i.e.  the  time  dependent  boundary 
conditions,  to  correlate  this  work  with  the  previous  work. 

The  three  input  signals  are: 

* (a)  Step  Input 

(b)  Sine  Wave  Input  (Frequency  response) 

(c)  Square  Wave  Input 

The  output  response  curves  have  been  obtained  for  the 
above  cases  using  ordinary  and  Danckwerts  boundary  conditions. 
The  plots  of  the  output  response  curves  show  that  there  is  a 
significant  difference  in  the  model  using  the  two  sets  of 
boundary  conditions.  Shemilt  and  Krishnaswamv  (26)  report  in 
their  work  that  there  is  no  appreciable  difference  between  the 
*  The  details  results  are  available  in  Appendix  F. 
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FIGURE  V-c  SQUARE  JAVE  INPUT  OUTPUT  RESPONSE  CURVES 
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- ►-  REDUCED  TIME  (6) 

FIGURE  V-d  STEP  INPUT  DIFFERENCE  IN  CONCENTRATION  AT  THE  FIRST  BOUNDARY 

USING  B.C(ii)  &  B.CM-n 


.  C ( i )  ORDINARY  BOUNDARY  CONDITIONS 
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FIGURE  V-e  SINE  WAVE  INPUT 

CONCENTRATION  DIFFERENCE  AT  THE  FIRST  BOUNDARY  USING 
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output  response  curves  in  the  transformed  domain  using  the 
ordinary  and  Danckwerts  boundary  conditions.  The  difference  in 
the  two  sets  of  boundary  conditions  is  clearly  evident  from 
the  figures  (V-d,  e,  f)  respectively. 

4.  A  simpler  model  has  also  been  derived  corresponding 
to  the  frequency  response  using  quasilinearization  (11) .  The 
data  are  generated  corresponding  to  different  values  of  u, 
where  u>  is  the  frequency  (Input  signal  is  0.75  +  0.25  Sin  u)0), 
using  semi-analytical  solution.  Four  sets  of  data  were  used 
for  the  calculation  of  the  best  fit  parameters.  The  data  are 
given  in  table  V.l  and  the  model  used  is:- 

__  +  c*  dc  +  B>c  =  Bf(e-A)  (V.l) 

The  best  fit  constants  are:- 


C*  =  6.54 
B  =  10.62 

A  =  0.187  (Time  Delay) 


(V.  2 ) 


The  sum  of  the  squares  of  the  errors  was  found  to  be 
0.00035.  Hence  this  simpler  model  can  represent  the  original 
complex  model  cruite  satisfactorily. 


. 


117 


TABLE  V.l 

One  Dimensional  Homogeneous  Case 

Input  Signal  Sine  Wave  Input 

Data  used  for  the  calculation  of  Best  Fit  Parameters  using 
Quasi linearization 


Reduced 

Time  6 

Output 

Signal 

go  =  0.1 

go  =  1.0 

go  =  5.0 

oo  =  10.0 

0.5 

0.752267 

0.760247 

0.788839 

0.795385 

1.0 

0.759911 

0.825010 

0.842310 

0.752342 

1.5 

0.770823 

0.909480 

0.685289 

0.738393 

2.0 

0.782802 

0.968236 

0.809963 

0.757490 

2.5 

0.795050 

0.978149 

0.740429 

0.773722 

3.0 

0.807298 

0.934066 

0.718791 

0.761064 

3.5 

0.819441 

0.845946 

0.820425 

0.736795 

4.0 

0.831428 

0.735108 

0.678430 

0.735424 

4.5 

0.843220 

0.628611 

0.804073 

0.758835 

5.0 

0 . 854788 

0.552505 

0.744679 

0.773463 

• 

•  3  o  v  v . 

. 

..  3  •" 
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5.  The  various  two  dimensional  models  have  also  been  investi¬ 
gated  in  detail.  The  most  complicated  model  taking  into  account 
the  packed  bed  velocity  profile  and  the  variation  of  the  varial 
dispersion  coefficient  with  radial  position  has  been  tried  but 
the  eigenvalues  did  not  converge  to  the  actual  value  even  within 
90  iterations  and  corresponding  to  a  convergence  limit  of  0.001. 
Then  simpler  models  have  also  been  tried  i.e.  (i)  flat  velocity 
profile  and  the  variation  of  radial  dispersion  group  with  radial 
positions ;  (ii)  flat  velocity  profile  and  using  an  average 
value  of  the  radial  dispersion  group.  The  weighted  average  of 
the  two  dimensional  model  results  has  also  been  compared  with 
the  simple  one  dimensional  model  results  for  three  different 
sets  of  the  ratio  (dp/dT)  i.e.  Particle  diameter/Tube  diameter. 
The  results  indicate  that  the  simple  one  dimensional  model 
represents  fairly  well  the  two  dimensional  nonhomogeneous  model 

up  to  a  variation  of  -37.0  to  50%  in  the  radial  Peclet  number 
dp 

and  =  0.075.  With  the  increase  of  this  ratio,  the  agreement 

in  the  two  models  is  not  so  good.  For  a  variation  of  -48.0  to 

60.0%  in  the  radial  Peclet  number  and  =  0.125,  the  agreement 

is  not  good  with  the  higher  values  of  time  elapsed.  The  agreement 

between  the  two  dimensional  homogeneous  model  (using  an  average 

value  of  the  dispersion  group) ,  and  the  one  dimensional  model  is 

found  to  be  quite  good.  The  summarized  results  for  two  sets  of 
dP 

jtj;  are  shown  m  tables  V.2  and  V.3. 

dp 

N.B.  The  detailed  results  for  one  set  of  3 —  are  available  in 

dip 

Appendices  C  and  Cl. 


'.t  h  m  Lt  noirii  a  c  :i  a  -n:  -  1 
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TABLE  V . 2 


Two  Dimensional  Models 
*  1 

Summary  of  Results  :  Comparison  of  one  dimensional  and  two 

dimensional  models. 

*  2 

Pe.  No.  Variaton  =  -48  to  60% 


dP 

=  0.125 

Two  Dimensional 
Homogeneous  Model 

Two  Dimensional 
Nonhomogeneous  Model 

Grid 

j  Point 

Reduced^. 

Time 

1 

3 

5 

1 

3 

5 

0.2 

0.73145 

0.73145 

0.00000 

0.19183 

0.19184 

-0.00001 

0.02455 

0.02455 

0.00000 

0.73152 

0.73145 

0.00007 

0.19224 

0.19184 

0.0004 

0.02458 

0.02455 

0.00003 

0.4 

0.88328 

0.88329 

-0.00001 

0.48818 

0.48820 

-0.00002 

0.18226 

0.18227 

-0.00001 

0.88361 

0.88329 

0.00032 

0.49000 

0.48820 

0.0018 

0.18277 

0 . 18227 
0.0005 

0.6 

0.93902 

0.93904 

-0.00002 

0.68561 

0.68567 

-0.00006 

0.40472 

0.40475 

-0.00003 

0.93964 

0.93904 

0.0006 

0.68898 

0.68567 

0,00331 

0.40629 

0.40475 

0.00154 

0.8 

0.96525 

0.96527 

-0.00002 

0.80577 

0.80585 

-0.00008 

0.59816 

0.59823 

-0.00007 

0.96610 

0.96527 

0.00083 

0.81042 

0.80585 

0.00457 

0.60105 

0.59823 

0.00282 

1.0 

0.97926 

0.97929 

-0.00003 

0.87915 

0.87925 

-0.00010 

0.73856 

0.73865 

-0.00009 

0.98028 

0.97929 

0.00099 

0.8848 

0 . 87925 
0.00555 

0.74268 

0.73865 

0.00403 

*1 

The  first  entry  in  each  block  refers  to  the  weighted  average 
of  C  calculated  from  the  generated  values  of  the  two  dimensional 
model  using  semi-analytical  solution  i.e.  n 

the  second  entry  refers  to  the  value  Z  C.  R. 

of  C  corresponding  to  one  dimen-  ,  _  i=l _ » 

sional  homogeneous  model  and  the  n  .  ' 

third  entry  represents  the  dif- 
ference  between  the  two  values. 

'k  2 

Pe.  No.  Variation  =  ((Point  Pe.No.  -  Average  Pe.No.)/ 
(Average  Pe.  No.)  x  100. 
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TABLE  V . 3 


Two  Dimensional  Models 
*  1 

Summary  of  Results  :  Comparison  of  one  dimensional  and  two 

dimensional  models. 

*  2 

Peclet  No.  Variation  =  -37  to  50% 


=  0.075 

Two  Dimensional 
Homogeneous  Model 

Two  Dimensional 
Nonhomogeneous  Model 

Grid 

Reducecl'/°int 
Time  N. 

1 

3 

5 

1 

3 

5 

0.2 

0.73145 

0.73145 

0.00000 

0.19184 

0.19184 

0.00000 

0.02455 

0.02455 

0.00000 

0.73144 

0 .73145 
-0.00001 

0.19183 

0.19184 

-0.00001 

0.02455 

0.02455 

0.00000 

0.4 

0.88329 

0.88329 

0.00000 

0.48820 

0.48820 

0.00000 

0.18227 

0.18227 

0.00000 

0.88327 
0.88329 
-0 .00002 

0.48820 

0.48220 

0.00000 

0.18226 

0.18227 

-0.00001 

0.6 

0.93904 

0.93904 

0.00000 

0.68566 

0.68567 

-0.00001 

0.40475 

0.40475 

0.00000 

0.93902 

0.93904 

-0.00002 

0.68563 

0.68567 

-0.00004 

0.40472 

0.40475 

-0.00003 

0.8 

0.96527 

0.96527 

0.00000 

0.80584 

0.80585 

-0.00001 

0.59822 

0.59823 

-0.00001 

0.96525 

0.96527 

-0.00002 

0.80579 

0.80585 

-0.00006 

0.59817 

0.59823 

-0.00006 

1.0 

0.97929 

0.97929 

0.0000 

0.87924 

0.87925 

-0.00001 

0.73864 

0.73865 

-0.00001 

0.97926 

0.97929 

-0.00003 

0.87919 

0.87925 

-0.00006 

0.73857 

0.73865 

-0.00008 

*1 

The  first  entry  in  each  block  refers  to  the  weighted  average  of 
C  calculated  from  the  generated  valued  of  the  two  dimensional  model 
using  semi-analytical  solution  i.e.  n 

Z  ^  i 

the  second  entry  refers  to  the  ,  _  i=l _  . 

value  of  C  corresponding  to  ~  n  ' 

one  dimensional  homogeneous  .2^  Ri 

models  and  the  third  entry 

represents  the  difference  between  the  two  values. 

*  2 

Pe.  No.  Variation  =  ((Point  Pe.No.  -  Average  Pe . No .) /Average 
Pe . No . )  x  100 


_ 


• 

■ 

-  -  - 
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Hence  it  is  concluded  that  the  solution  developed  in 
this  thesis  is  capable  of  handling-  wide  varieties  of  initial 
and  boundary  conditions.  It  can  also  handle  all  one  dimensional 
problems  and  many  two  dimensional  homogeneous  or  nonhomogeneous 
media  (provided,  of  course,  the  properties  of  the  madia  are 
independent  of  the  dependent  variable  and  time)  problems. 
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APPENDICES 


A1 


A.  RELATED  TOPICS  OF  MATRIX  ALGEBRA 

The  proofs  of  the  various  theorems  of  matrix 
algebra  given  here  have  been  taken  from  the  standard  text 
books  of  numerical  analysis  such  as, 

Lapidus  L.  Digital  Computation  for  Chemical  Engineers. 

THEOREM  1.  If  a  matrix  undergoes  a  similarity  transforma- 
tion,  the  eigenvalues  remain  unchanged  but  the  eigenvectors 
are  changed. 

If  a  matrix  A  is  formed  from  a  given  matrix  A*  by 

A  =  D_1A*D  (A . 1) 

where  D  is  a  regular  matrix,  then  A*  is  said  to  undergo 
a  similarity  transformation. 

The  proof  is  given  in  two  parts. 

(a)  Eigenvalues  of  A  &  A*  are  same 

i.e.  The  characteristic  equation  is  invarient  during  such 
transformation . 

det  (A  -  AD 


=  det 

(d-1a*d  -  xgj 

=  det 

(D_1A*D  -  AI)J 

=  det 

D~ 1 ( A*D  -  AID) 

-1 ,  ^  „  n 

=  det 

D  (A*  -  AI)D 

-  J 

. 


A2 


=  det  D  1.  det  (A*-  AI) .det  D 
=  det  (A*-  AI) 

Hence  det  (A  -  AI)  =  det  (A*  -  AI)  (A. 2) 

(’.*  det  D_1 .  det  D  =  det  (D~l  D)  =1). 

Hence  the  eigenvalue  of  A  and  A*  are  same. 

(b)  Eigenvectors  of  A  and  A*  are  not  same. 

Let  u  be  an  eigenvector  of  A* 
and  v  be  an  eigenvector  of  A 
both  with  the  same  eigenvalue  A 

Then 

A*u  =  Au  (A. 3) 

and 

A  v  =  Av  (A. 4) 

But 

A  =  D~ 1  A*  D  (A. 5) 

Consequently 

(D_1  A*  D ) v  =  Av  (A. 6) 

Premultiplication  by  D  gives 

A*  (Dv)  =  A (Dv)  (A. 7) 

Comparing  equations  (A. 3)  and  (A. 7)  clearly  indicates: 

If  v  is  an  eigenvector  of  A,  then  D  u  is  an 
eigenvector  of  A* . 

Hence  u  =  D  v  is  an  eigenvector  of  A*  where  v 
is  the  eigenvector  of  A. 
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THEOREM  2 .  The  eigenvalues  of  a  real,  symmetric  matrix  A 
(D  ^A*D_)  are  real,  distinct  and  positive. 

The  proof  is  given  in  three  steps 
(i)  The  Eigenvalues  of  A  are  real: 

Let  A^  be  a  complex  eigenvalue  of  A.  Then,  since 
A  is  real,  it  follows  from  the  characteristic  equation 

det  (A  -  Alt)  =  0  (A.  8) 

that  the  complex  conjugate  A*  of  any  complex  root  A,  is  also 
an  eigenvalue.  This  implies  that  the  corresponding  eigen¬ 
vectors  u1  and  u*  are  complex. 

Since  A ^  is  an  eigenvalue  and  u^  is  an  eigenvector, 
the  following  relation  is  satisfied: 

A  u_i  =  Ai  u±  (A. 9) 

also 

A  u*  =  A*  u*  (A. 10) 

Premultiplication  of  equation  (A. 9)  u*T  and  equation  (A. 10) 

,  T  . 
by  u^  gives: 

—l  A  u  =  A1U_1  u_1  (A.  11) 


and 


•p  *  *  <p  * 

Hp  —  —l  =  —i  ui 


(A. 12) 


Since  A  is  a  symmetric  matrix,  the  left  hand 
sides  of  equations  (A. 11)  and  (A. 12)  are  equal. 


(A. 13) 


This  gives: 

*  m  * 

(Xx-X1)  (-i  -iJ  =  0 

* 

or  A^  =  A 1 

But  this  is  contrary  to  the  assumption.  Hence  all  the 
eigenvalues  of  a  real  and  symmetric  matrix  A  are  real. 


(ii)  The  matrix  A  has  n  distinct  eiqenvalues . 

Proof:  Order  the  eigenvalues  of  A  in  such  a  way  that 

I  X1 1  s  I  X2  I  - >  I  X n  I  (A.  14) 

th 

and  consider  the  p  compound  A(p)  of  the  matrix  A 
(p  =  1,2,  ,n)  i.e.  the  matrix  whose  elements  are  (pxp) minor 

determinants  of  A,  indexed  in  some  order.  The  characteristic 
numbers  i.e.  eigenvalues  of  A^  are  the  various  products  of 
eigenvalues  of  A,  taken  p  at  a  time: 


A 1  A2  V  X1  X2  XplXp+l 


(A. 15) 


By  hypothesis  there  is  an  integer  q  so  that  A^ 
is  totally  positive.  From  A(p).  A(p)  =  (A2) ,  we  see  that 
A  (9) 

(p)  t*ie  P  compound  of  Aq  and  is  therefore  totally  posi¬ 
tive.  On  the  other  hand  A^is  non  negative  (A^>  0).  Thus 
A^p)  is  actually  an  irreducible  non  negative  matrix  and  so 
is  a  primitive  matrix.  By  the  theorem  of  Frobenius  (15, page 
65)  we  conclude: 


.3.1  zisd- 


* •  I  k  n  .a  1 
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^1  ^2  •••  >  0  ( p  —  1  /  2 ,  ...  n) 

X1  X2  •••  Ap  >  X1  X2  •••  Xp-1  Xp+1  (P  =  1'2'*--n-D_ 

(A.  16) 

So  the  inequalities  (A. 16)  imply 
>  X  2  >  X  ^  >....>  Xn 

Hence  all  the  eigenvalues  of  A  are  distinct. 

(iii)  The  eigenvalues  of  A  are  positive  numbers. 

Proof:  Consider  a  five  point  grid  and  the  typical 

coefficient  matrix  associated  with  it  is 


12.1 

5.4 

5.4 

12.1 

5.4 

A  = 

5.4 

12.1  5.4 

(A. 17) 

5.4  12.1 

5.4 

5.4 

8.8 

Any 

matrix 

A  is  said  to 

be  diagonally 

dominant 

if 

n 

1  a . 

1  li 

T  1  ^  •  1  f 

1  1  ID  1 

i  =  1  to  n 

(A. 18) 

The  condition  as  given  by  (A. 18)  is  seen  to  be 
true  in  the  present  case.  The  matrix  A  is  said  to  be 
irreducibly  diagonally  dominant  if  the  inequality  holds  for 


-  A6  - 


at  least  one  i.  This  can  also  be  verified  in  the  present 
case.  Since  the  diagonal  elements  of  A  are  positive,  the 
eigenvalues  of  A  are,  .also  positive  as  given  in  (29). 

Hence  this  also  establishes  that  the  matrix  A  is 
a  positive  definite  matrix. 

THEOREM  3 .  A  real,  symmetric  matrix  A  of  order  n  has  n 
linearly  independent  and  mutually  orthogonal  eigenvectors. 

The  proof  of  this  theorem  is  presented  in  two 

parts . 

(i)  To  prove  that  the  eigenvectors  associated  with  distinct 
eigenvalues  are  orthogonal. 

Consider  two  distinct  eigenvalues  and  X2  and 

the  associated  eigenvectors  u^  and  u2  .  Then, 


A  u-^ 

=  xi  Hx 

(A. 19) 

and 

A  H2 

=  ^2—2 

(A. 20) 

The 

scalar  product  of  equation 

(A. 19)  with  u2 

of 

equation  (A 

.20)  with  u.  are: 

T 

-2 

A  Hi  =  Ax  H2T 

Hi 

(A. 21) 

and 

T 

ui 

A  H2  =  x2  HiT 

—2 

(A. 22) 

Since  matrix  A  is  symmetric 

,  T 
-2 

T 

A  u^  =  u1  A 

-2 

(A. 23) 

(X1  -  X2)  ( u u 2 )  = 


or 


0 


(A. 24) 


■ 

* 


* 
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^1  an<^  ^2  are  bwo  distinct  eigenvalues, 

T 

*  *  -1  H-2  must  be  zero  is  order  that  equation  (A. 24)  is 

satisfied . 

Hence  the  eigenvectors  associated  with  distinct 
eigenvalues  are  orthogonal. 

(ii)  To  prove  that  there  exists  k  linearly  independent, 
and  orthogonal  eigenvectors  associated  with  where  X±  is 
a  root  of  multiplicity  k. 

Let  A ^  =  A2  =  ...  =  Ak,  but  A i  {  A^ 


for  i  =  k  +  .1,  . . . ,  n. 

The  proof  is  by  induction 


Let  A 2  = 

all 

a12 

1 

IV 

i— * 

_ 1 

_a21 

a22  _ 

— 

a'2) 

be  a  symmetric  matrix. 

Let  A^  and  u^  be  a  set  of  associated  eigenvalues 
and  eigenvectors,  then 


—2  “l  = 

AX  Hi 

or 

a(1>  u,  = 

X1  U11 

and 

a<2>  u. 

“  X1  U21 

(A. 26) 

Let  T2  be  an 

orthogonal 

matrix , 

one  of  whose  columns 

Let  the  other  column  be  u^ . 


is  u.  . 


In  matrix  notation 


' 


r*  u  &  Vi  IbFj'j&j.o oaa  i  io  :koa  a  o  !  u  >ns  .X  i 

* 
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-2  "  [Hi  '  Ha] 


It  is  required  to  show  that 


—2  —2  *2 


X±  0 
O  X2 


(A. 26) 


where  \1  and  *2  are  the  eigenvalues  of  A2,  not  necessarily 
distinct. 


Evaluating  the  left  hand  side  of  equation  (A. 26) 


to  give 


—2  12 


X1  C12 


0 


22 


It  is  easily  shown  that  C12  =  0  for 


T 

-2 

—2 

T 

or 

A0 

T 

—2 

-2 

2 

zero . 

Also, 

same. 

it  can 

«  t2t  a2t  (t2t)  =  t2t  a2  t2 


(A. 27) 


T  ,  T 


that  u2  is  the  second  eigenvector. 

The  nth  order  case  is  now  proved  by  induction 
Assume  that  for  each  k,  k  =  1,  2,  ...,nan 
orthogonal  matrix  can  be  found  which  reduces  A^  to  the 
diagonal  form.  It  is  to  be  proved  if  the  above  is  valid  for 
n,  it  is  valid  for  n  +  1  also. 


_ 
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Let  A(n  +  1}  =  (a.  .)  = 

ID 


(1) 

(2) 


(n  +  1) 


(A. 28) 


Let  A^  and  be  the  set  of  associated  eigenvalue  and  eigen¬ 
vector.  An  orthogonal  matrix  T1  is  formed  with  as  its 
first  column.  Let  T1  be 

T1  =  1^-1'  -2'  •••“„+  ij 


Now 

— n+l  h  =1 


-U)  Hi  • 


, (n  +  1) 
a  u^ 


un  a(1)u2 


,  n+l 

A.  u  .  ,  a  u~ . 

1  n+l, n+l  —  —2 


a (1)  u  +  , 
—  —n+l 


(n  +  1) 

*  -  -(n  +  1) 


a  (1)  u 

*  -  -(n+l) 


,  (n+l) 

-  -(n+l) 


(A. 29) 


U  '  .  -  '  j  • ' MS 

?,  j  vr,  u  rcc  1  n  -  no  >oriiio  n  L 
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Since  T1  is  an  orthogonal  matrix 


^lT  — (n+l) 

h  = 


X1  a12 


1 ,  n+l 


A 
— n 


(A. 30) 


T 


Since  T±  An+1  T±  is  symmetric,  a±2  =  a13  =  ...  =  a± 


n+l 


,*  t  ^  A 
**  -1  — (n+l ) 


0 

O 


A 
— n 


(A. 31) 


Now  the  eigenvalues  of  A_n  must  be  the  same  as  the 

other  eigenvalues  of  . 

The  theory  of  induction  is  employed  at  this  stage 

Let  T  be  the  orthogonal  matrix  which  reduces  A  to  the 
— n  — n 

diagonal  form. 


All 


Let  S  , ,  = 

—n+1 


1  0  . 
0 


which  is  also  orthogonal.  Now 


(A. 32) 


ST  (T  ^  A  T-  ^)  S 

-n+1  ^-1  -n+1  -1  '  —n+1 


ln+l 


(A. 33) 


°r  (Tx  Sn+1)  An+1  (TX  Sn+1)  =  A 


(A. 34) 


(T1  W  is  the  required  orthogonal  matrix  and 
hence  its  (n+1)  columns  are  linearly  independent.  Clearly 
these  are  the  eigenvectors  of  A_n+^  an<^  hence  the  theorem  is 
proved . 

THEOREM  4 .  The  derivations  of  the  computational  molecules 
using  higher  order  correct  monotone  type  approximations  are 
presented  here. 


.  c  Iw 


:  aas/ril  8  run/ loo  (I+n)  eii  aonsd 


. 09V01C 


•  .  *■  V  . 
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(a)  Near  the  first  boundary. 

The  finite  difference  expressions  for  the  first 
and  second  order  derivative  can  be  obtained  by  expanding  the 
function  around  that  point  using  Taylor ' s  series . 


ci+l  =  f(x+h)  =  f(x)  +  hf 1  (x)  +  f^x) 


+  h3 
+  3T 


(A. 35) 


.II 


■fx) 


+  h4 

+  4T 


.IV,  x 
f  (x)  . 


2  3 

=  ^  (x— h)  =  f  (x)  -  hf  (x)  +  f  ^  (x)  +  (A.  36) 


2T 


31 

♦ 


.III,  .  ,  h  .IV,  . 

f  (x)  +  f  (x)  . 


f (x)  refers  to  c . . 

l 

The  primes  refer  to  the  order  of  the  derivatives. 
Adding  (A. 35)  and  (A. 36)  gives 


32C 


4  3  c 


Ci+1  +  ci-l  “  2  ci  +  h‘ 


3  z 


2  +  it  n 


or  12  (ci+1  -  2  ci  +  ci_1)  =  12  h‘ 


3  2c 


3  z 


3  z 


+  Oh 


or 


3  2c 


3  z 


12h‘ 


12  c .  ,  ,  -  24  c .  +  12  c .  . 
l+l  l  l-l 


(A. 37) 


Subtracting  (A.  36)  from  (A.  35)  gives 


ci+1  -  ci_1  =  2  h  fI(x)  +  ^  fIII(x) 


(A. 37a) 


.  .O  02  (x)3t 


•"  ..r-  '  .  _  ' 
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or  3  h 

<ci+i  '  ci-i 

)  =  6  h2 

8  c 

8  2 

+  0 

8  c 

nr 

1 

h  Ci+1  - 

6  h 

8  2 

2  ^ 

121-1 

ci-i 

8  c 

a  2 

8  c 

(A. 38) 


Hence  the  derivatives  — 

8  z 


and 


8  z 


2  are  replaced  by (A. 38) 


and  (A. 37)  respectively  near  the  boundary  to  get  the  numeri¬ 
cal  solution. 


(b)  For  all  other  points. 

For  this  a  five  point  molecule  is  considered  and 
the  expansion  of  these  functions  is  considered  f (x  +  2h) , 
f(x  +  h),  f(x  -  h),  and  f  (x  -  2h)  . 

The  following  are  the  identities. 


f(x  + 

2h) 

= 

ci+2 

f(x  + 

h) 

= 

ci+l 

f  (x) 

= 

c . 

1 

f(x  - 

h) 

- 

ci-l 

f  (x  - 

2h) 

Cl-2 

The  expressions  for  f (x  +  2h) ,  f (x  -  2h) ,  f (x  +  h)  and  f(x  -  h) 
in  terms  of  f(x)  and  its  derivatives  are  given  by  (A. 40) ,  (A. 41) ,  (A. 3 
and  (A. 36)  f (x  +  h)  and  f  (x  -  h)  are  given  by  (A. 35)  and  (A. 36). 


/n  oJ  i  ir>  t  ;  «  '  :  i  J.  Jo-  yeei  (V 


' 


( 

' 


.  -  ■ 


xj  5  bn b  (ri  +  x)5  (dC.A 
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2  f(x  +  2h)  “  f  f(x)  +  3hfI(x)  +  3h2  fII(x)  +  2h3f 111 (x)  + 


Oh 


(A. 40) 


2  f (X  "  2h)  =  |  f(x)  -  3hf 1 (x)  +  3h2f 11 (x)  -  2h3f 111 (x)  + 


Oh 


(A. 41) 


( A . 4 0 )  and  (A.  41)  and  dividing  by  2  gives 


j  f  (x-2h)  +  |  f(x  +  2h)  =  j  f(x)  +  3h2f 11  (x)  +  o|h4 


°r  4  ci+2  2  ci  +  T  ci-2  “  3h 


a  2 
9  c 


9  Z 


or  3h 


a  2 

0  9  c  _ 

2  _  3  3  3 

3  z2  4  Ci+2  2  Ci  +  4  Ci-2 


(A. 42) 


(A. 43) 


Using  equations  (A. 35)  and  (A. 36)  to  get 


12h‘ 


a  2 

9  C 


9  z' 


=  12  c . , ,  -  24  c,  +  12  c. 


l+l 


i-1 


(A. 44) 


Subtracting  (A. 44)  from  (A. 43)  gives 

-  12  c. 


2  a2°  3 

-9h  —  =  7  ci+2 


9  z 


45 

i+1  +  T  ci 


-12h‘ 


a  2 
9  c 


9  Z 


2  ci+2  16  ci+l  +  30  ci 


12  c.  ,  +  -r  c  .  n 
l-l  4  i-2 


16  ci_1  +  c±_2  (A. 45) 


a  2 

9  c 

a  2 

9  Z 


12h‘ 


ci+2  16  ci+l  +  30  ci  16  ci-i  +  ci-2 


•  • 


(A. 46) 


*sp  oi  ( d£ . A)  bns  (SC .A)  anolifii/pft  pniaU 


' 
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f (X  +  2h)  =  f(x)  +  2hf 1 (x)  +  2h2f 11 (x)  +  i  h3f 111 (x)  + 

8  ,4 -.IV  /  x 

12  h  f  <x)  (A. 47) 

f  (x  -  2h)  =  f(x)  -  2hf 1  (x)  +  2h2f 11  (x)  -  jh3fII:C(x)  + 

X2  h4fIV(x)  (A. 48) 

Subtracting  (A. 48)  from  (A. 47) 

f(x  +  2h)  -  f (x  -  2h)  =  4hf 1 (x)  +  |  h4f 111 (x)  (A. 49) 

or  h  f  (x  +  2h)  -  h  f  (x  -  2h)  =  4h2f 1  (x)  +  |  h4fII3C(x). 

3 

Multiplying  throughout  by  -g  gives 

|  hf (x  +  2h)  -  |  hf (x  -  2h)  =  |  h2fI(x)  +  0|h4| 

9  c 

or  q  h  c.  +  2  "  g-  h  ci_2  =  2  h  (A. 50) 

3  Z 

Using  equation  (A. 37a)  which  is 

ci+i  ■  ci-i =  2  h  fI(x)  +  S-  fIII(x> 

9  9C  *4  TTT 

or  (h  ci+1  -  h  ci_1)  =  2  (  —  )  +  f111(x) 

3  z 

or  3  h  ci+1  -  3  h  c±_1  =  6  h2  +  0|h4|  (A. 51) 
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Ecruations  (A.  50)  and  (A.  51)  are 


3  ,2 

2  h 

3  c 

(  —  ) 
3  z 

— 

8  h  Ci+2  8  h  Ci-2 

(A. 50) 

2 

3  c 

6h 

(  —  ) 
3  z 

3  h  c.+1  -  3  h  ci_1 

(A. 51) 

Subtracting 

(A. 51)  from  (A. 50)  gives 

9  h2 
"  2  h 

3  C 
(  — 

3  z 

)  = 

8  h  ci+2  '  3  h  ci+l  + 

3  h  Ci-1  '  1  h  ci-2 

3  C 

or  -12 

h  — 

3  Z- 

h  Ci+2  -  8  h  ci+l  +  8 

h  Ci-1  “  h  ci-2  (A . 52 ) 

Hence 

3  c 

1 

(A. 53) 

3  z 

2  r h  Ci  +  2  -She 
12h  L  1+^ 

i+l  +  8  h  °i-l  ’  h  ci-2] 

3  c 

32C 

Hence 

the  derivatives  — 

and  — y  are  discretized 

3  z 

3  z 

using  equations 

(A. 46)  and  (A. 53)  to  get  the  semi  analytical 

solution. 

THEOREM 

5. 

Any 

matrix  ^(nxn)  monotone  if  and  only  if  there 

exists 

a  real 

matrix  R(nxn)  with  the  following  properties 

M 

= 

A  +  R  is  monotone 

M  1  R  >0 
0  (M_1  R)  <1 


(A. 54) 
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where  p  is  the  spectral  radius  of  the  matrix. 

Proof:  If  A  is  monotone,  R  can  be  chosen  to  be  the  null 

matrix  0,  and  the  above  properties  are  trivially  satisfied. 

Now  suppose  A  is  a  real  (nxn)  matrix  and  R 
is  a  real  (nxn)  matrix  satisfying  the  set  of  properties 
represented  by  (A. 54).  Then 


A  =  M  -  R 


(A. 55) 


(A. 56) 


According  to  the  theorem  in  Varga  (29  p.  43)  it  can  be 


easily  shown  that  M  1R  is  convergent  and  A.”1  as  in  Varga 
(31)  can  be  expressed  as: 


A 


-1 


-1 


(A. 57) 


M 


As  M  ^R  and  M  ^  are  both  non-negative  so  it  is  clear  from 
(A. 57)  that  A  1  is  also  non-negative. 


Hence  matrix  A  is  monotone. 


a  se 

■ 

. 
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INTRODUCTION  TO  APPENDICES  B  TO  G 

The  various  computer  programs  are  listed  in  these 
appendices.  A  few  important  general  aspects  of  the  various 
programs  are  listed  as  given  below. 

1.  The  sample  statement  of  each  of  the  cases  dealt  with  is 
given  in  the  beginning  of  each  program. 

2.  The  programs  are  listed  in  the  following  general  order 

(a)  a  main  line  program,  where  normally  the  data  are 
read  in  and  the  results  are  printed  out. 

(b)  the  calculations  are  performed  in  subroutines  which 
in  turn  are  called  to  the  main  line  for  the  output 
of  results. 

3.  The  subroutines  mainly  used  in  this  thesis  are  listed  at 
the  end  in  Appendix  F.  The  subroutines  which  are  speci¬ 
fically  used  in  a  certain  problem  are  listed  along  with  its 
main  line  program. 

4.  For  a  better  understanding  of  various  programs  the  "Comment 
Cards"  have  been  added  at  various  places. 

5.  In  some  of  the  programs  exponent  underflow  occurred  but  this 
is  not  a  serious  problem.  This  does  not  affect  the  results 
to  a  great  extent  because  the  computer  takes  that  number 

as  zero  and  proceeds  with  the  calculations.  This  is  due  to 
greater  magnitude  of  the  eigenvalues  of  the  coefficient 


matrix . 


V 


' 

* 
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APPENDIX  B 

ONE  DIMENSIONAL  HOMOGENEOUS  CASE 

The  partial  differential  equation  describing  the 
above  process  is 

3  c  3  ^c 

—  =  a  - 2 

3  6  3  z 

O  ^  Z  1 

The  boundary 

(a)  at  0  =  0,  c  =  0 

at  z  =  0,  c  =  1 

at  z  =  1,  ^  =  O. 

(b)  at  8  =  0,  c  =  O 

at  z  =  O,  c-  a  (  ^ 

z+o+  3z 

at  z  =  1,  J-2.  =o. 

o  Z 

Semi  Analytical  Solution  A  ten  point  and  a  twenty  point  grid 
are  used  for  the  given  problem  0  «<  z  ^  1 .  The  grid  spacing 
used  is  shown  in  Figure  Ill-b. 

Interpolated  Values  The  results  of  ten  point  grid  are  derived 
from  those  of  twenty  point  grid  using  interpolation. 

Deviations  (Errors) 

=  Interpolated  value  -  value  given  by  semi 
analytical  solution. 


3  c 

3  z 


conditions  that  have  been  used  are 


)  =  c .  (6 ) 

z+o+  in 


' 


sq  n  >vip  9rfi  &98U  sf* 


pooooopoooo 
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SOLUTION  OF  THE  DISPERSION  MODEL  EQUATION-ONE 
-  DJ  MENS  I ONAL  HO MO GEN EOUS  CAS E 

INPUT  DATA 

N=  THE  NUMBER  OF  GRID  POINTS. 

-_MT  =  THE  TOTAL  NO.  OF  T T  MES . 

MAT RI THE  COEFFICIENT  MATRIX 

X=  THE  DIMENSIONLESS  DISTANCES  OF  GRID  POINTS. 

CI=  THE . INI TIAL  CONDITION  VECTOR. 

CI=  THE  BOUNDARY  CONDITION  VECTO*. 

TIME=  THE  DIMENSIONLESS  TIMES. 

DX=  THE  GRID  SPACING. _ 

REALMS  DX 

DOUBLE  PRECISION  MATR I  X ( 20 , 20 ) , VECTOR ( 20 , 20  ) 
DOUBL  E  PREC I S I  ON  X(20),VAR( 20) .C 1(20) .Cl<  20) 
DOUBLE  PRECISION  0 ( 20 , 20  )  , V  I CTQR ( 20 , 20 ) 

DOUBLE  PRECISION  CEVR ( 20 , 20 ) , T 1  ME ( 20 ) , TOLERC 

ltWf  20,20) _ _ 

C  READ  THE  DATA 

READ (  5,1)  N, NT 

-  _ RE  AD  I  5 , 5  J UM  A  TR  I  X  (  I  ,  J )  ,  J  =  1 , N ) , l = 1 , N ) 

RE  AD (  5,2  )  (  X  (  J  ) , J= I , N ) 

RE AD (  5,2  )  (CI(J)  ,J=1,N) 

- R£AD(  5.2  )  (CU  J)  .J  =  l  ,N) _ 

RE AD ( 5 , 3 )  I  TIME! J ) ,  J  =  I,NT) 

READ! 5,4)  DX 

-  _  NC)RM  =  2 

TOLERC-O.D~° 

WR I TE ( 6 , 223 ) 

_ UNESCO _ 

CALL  LINECT (LINES, 4, 2) 

WR  I  TE  (  6  »  2  53 )  DX 

_ WRITE (6, 220) 

LINES  =9 

CALL  L  INECTC LINES, 4, 2) 

-  _ WRI TE ( 6, 224  ) _ 

wR I TE (  6 , 22  3  ) 

WR I TE ( 6 , 23  L  ) 

_ CALL  LINECT ( LINES , 1,2) 

WRITE!  6,232 )  <X( ’  j) , J= 1 , N ) 

CALL  LINECT (LINES, 4, 2) 

_ WR I TE ( 6 , 223  ) _ 

WRI TE ( 6 , 233 ) 

CALL  LINECT (LINES, 1,2) 

*RITE( 6,234)  (CIC J) 

CALL  L INECT (LINES, 4, 2) 

WRITE(6,223) 

- - WRITE(6.235) _ 

CALL  L INECT (LINES, 1,2) 

DO  30  J=L,N 

30  Cl ( J )  =  C 1 ( J ) / (DX**2  )  _ _ 


1  i  ■  £  I  HT  -3i  HU  I  Tlj  J  )£ 
i  AJ  t  U  3H  iuOMOH  JAHOI2H3MIO 

.  i  i  i  .  iu  y-* e 'Ui-  jht  =v. 

.<  .  JATj  ?  a.-ij  =  T 

XMTj*  T  1)137330  3HT=XIMA* 

I  1  H  I  J  .  J.ATrlQ  22  3  JHO12H3MI0  3HT  =X 
.  .  1  v  .  I  T  i  •  J  j  A I T I  I  3H7  =1  ) 

.  1  V  *  I  T  I  Y/i AOL  J6  iHT  =10 

.£11  <:2:  '  iUIc'H  ■  I  (  3HT  =  3MI  T 

i  '  I  »  1  -X 

xa 

(  .  j  .  , (  ,  )  .  HOI2I03AS  3J8UOO 

)  >,  <  )  .  ,  (  )  .  ,  i  )  u  i  >  3;  ■  i  u  • 

\  •  .  )  HO 121  .3  3J6UOO 

, i  , (  V 7  3 JHUOa 

(  ,  SJ.S.I 

ATAO  3HT  GA3fl 

T H « H  (It  )QA3« 

(  ,  ;  ,  i  «  i  =  t  f  1  t  «  I  )  X  I  T  A  )  )  i  <?  ,e  )i  )  ‘ 

<  ,  1  =  i.  ,  {  U  X  )  (  S  t  C*  )  (j  A  3  « 

(  .  ,  1  -  C  ,  (  L  )  J  )  (  S  ,'J  )C.-  7  ■ 

(  *  I  -  L  ,  l  )  I  11  <  £  ,  C  )  A  j  3 

(  ,1  =  1  t  (  L,  )  3  IT)  (  i  ,2  )CJA 

(  *  ,  : 
s=M«r  i 

'  "  .  OHJ  T 

(  5.S,d)5TIfl*l 
p  =2  3H  j  j 

l  »A,c  ,  UM J3H1 J  JJAO 
X  Uc'  ,d)?TI  iM 

r  i!  ,  o  I  .  T  i  - 

9=  23HIJ 

)  *  .  jj. 

(  ii,)  1 1 
(  SS,d>3TI«* 

I  IS,  )  T lftrt 
(  ,1,23  1  ) 1 J jHI  J  JJAO 

(  ,  =t  ,  It  )  X  )  (  !  T  I 

(  ,r  ,2  HI  i  )  T ..  V  1  J  JJAO 
(  ci!  ,  )  ’  •> 

(  it  )  T  H-. 

i  ,  i ,  i  j)  -hi  j  jja  j 

(  ,  ,  1  -  l  ,  ( t  )  .  )  (  •  ,  -  )  T  I  ’  . 

.  ,2  I  DI  .  ►  i  J  JJ.  0 

(  SS.dHTlflW 
(  ,d)  JTIflw 

C  S  ,  i  ,2i  MJ)  i;  HI  J  JJAO 

,  I  =L  ri  0(1 
(  •'  3 1  \  (  L  )  1  -  (  L  )  i  '  f 
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WRI TE ( 6 , 2  34 )  C  C 1 ( J) ,J=1,N) 

_ CALL  L INECJ ( LINES , 4, £ ) 

WRITE(6,223) 

WR  I  T  E  (  6 , 240  ) 

_ DO  36  J=1.N _ _ 

DO  36  K=  1 ,  N 

MA T R I  X ( J , K ) = MATR I  X ( J , K ) / ( DX * *2 ) 

36  CONTINUE  _ _ _ 

DO  31  J=1,N 

CALL  LINECTiLINES, 1,2) 

-3-1  WRITE  (6, 241)  (MATRIX!  J.K)  ,K=1,N) 

CALL  TRANS(N,DX,D, MATRIX) 

LINES=9 
WRITE(6»25 5 ) 

CALL  LINECTILINES, 1,2) 

WRITE(6,241)  (D(J,J),J— 1,N) 

_ CALL  LINECT  (LINES, 4*2) _ _ 

WRITE(6,223) 

WRITE(6,259) 

... _ £0  50 

CALL  LINECTILINES, 1,2) 

50  WR I TEI 6, 241 )  ( MATRI X  I J , K )  , K= 1 , N ) 

- CALL  JACQSI I N, MATRIX*  VECTOR, TOLER C , N Q K M ) 

WRI TE I  6 , 220 ) 

LINES  =9 

_ CALL  LINECTILINES, 3,2) 

WRITE! 6,223 ) 

WRITE<6,242) 

CALL  LINECTILINES, 2, 2) _ 

WRITE! 6, 2  32)  I MATRI X  I J , J )  , J=  1  ,N ) 

CALL  LINECT I  LINES, 3, 2) 

_ _ WRITE(6,223) 

WR I T E I  6 , 243 ) 

DO  32  K*1,N 

CALL  LINECTILINES, 3, 2) _ 

WRITE  I  6, 2  32)  t VECTOR  I K,J)  ,J=1,N) 

32  WR  I  TE  I  6, 223  ) 

_ CALL  CHECK! VECTOR, MATH  IX, N,W ) 

CALL  L  INECT <LINES, 1 ,2) 

WRI TE ( 6, 244) 

DO  33  J=1 , N 

CALL  LINECT (LINES, 3, 2) 

WRITE (6, 232)  (WIJ,K),K=1,N) 

33  WRITE(6,223)  _ _ _ 

CALCULATE  THE  TRANSPOSE  OF  THE  MATRIX  UF 
THE  EIGENVECTORS 
—  DO  40  1=1 , N 
DO  40  J  =  1 , N 

VICTOR ( I , J )= VECTOR  I J ,  I  ) 

40  CONTINUE 


(  ,  -  u  ♦  u,  >  I  >  t  *  ' r :  ,  )  3  t  ;  x  * 

(  ,  '  I  i  )  .  J  J.JA 


(  S5  f  )  T  1  -  .. 
(  .  )  rmx 

*  1  ®  L  0< 


(  ••  •  )  \  (  /  ,  Li  X  1  T  -  -  ,  l  >  X  .  -i  T  A 

3UHITHQ0  dt 
»  I  =  L  I  i  JO 
(  ,  k  • .  1  J  )  M  I  .J  J  JA  i 

l  t  i  »  L  )  1  i  III1  »  ) 

(  X  ,  ,  X  t  J  r  V •  T  J  J  A 

P*23HI J 

(  »  >  )  3  T  I 

i  ■:  «  ,  • .  1  I )  T  DBM  I  J  J  J  A  J 

■ 

(  T  t  ■  J,)  /  1  J  J  i 


(  SS  ,  )  1  1  lift 
(  ,  i  )  T  I  u 


(  r  »  1  J  )  •  J  J J-  > 

- i  ,  . 

I  ,  j  .  T  ,  x  I  ■  '  ,  ,  )  I  L  J 1 A  J 

(  S',  t  J  T  .  • 

<  I.MJ 

l  ,  ,  >  J>7„  .  I J  J J A3 


<  fc  £  S  ,  )  T  1 

( s>':  , «  )  ,t  i  . 


(  ,  ,  I  J  )  T  J  «  I  *  J  i  .) 

i  .  ua,i.m  i  i  (its,)  t i 

(  t  ,  i  11  J  )  T03.1I  J  J  l  a  ) 


<  ,  )  T  I  i.s 

(  •  *‘S,d)  H 

,  1=  * 


(  ,  ,231iun  MJ  JJA) 

i  ,  i  - 1 1  u  ,  m  -  i  j  -  •  )  i  ,  )  : 

(  S  .  )  -IT  !  ,  t 

(  *  t  t  ■  .  .  V)  J  J  J 

t  ♦  i  »  d  J  •  1  J  )  T  if.  I  J  JJA  ) 

(  ^  ,  )  T  1 

•  ,j-L  i*  •! 


(  t  t  i  1  J  )  T  .  J  J  J  A  1 


I  .;=/.(  *  L  )  )  (  1  £  ,  ):TH« 

i  s  ,  )  r  i  . 

c«  \  33 Vi  : J  1  3  JHT 

,  J  -  I  C  a 


I =L  CA  00 


(  1  ,L)  T.)j  .  -  «  ,  I  )  T  IV 

JUM  I  T /r1*' 


oooooonoo 
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A= (D( -1 ) *A( * )*D) 

- Al* )=TH6QR I G IN A ^COEFFICIENT  MATRIX 

C=THE  DIAGONAL  MATRIX  USED  FOR  THE  CONVERSION 
OF  MATRIX  (A!*))  TO  THE  SYMMETRIC  FORM 

- A^lI-HE  SYMMETRIC  MATRIX.  DERIVED  FROM  THE  ORIGTNAi 

COEFFICIENT  MATRIX  A { ^ ) 

U=THE  MATRIX  OF  EIGENVECTORS  OF  A 
CALCULATE  THE  EIGENVECTORS  OF  THE  ORIGINAL 
COEFFICIENT  MATRIX 
DO  33  1=1, N 

_ DO  38  J  =  1.N _ _ _ 

VECTOR ( I , J ) =D( I , I )* VECTOR (I , J) 

38  CONTINUE 

WRITE(6,22~) 

L I NE  S  =  9 


CALL  LINECT  (LINES, 3,2) 


H  \  V  1  C.C.  >  t 

WRI TE! fc,256) 

CALL  LINECT! LINES, 2, 2) 

WRITE! 6,232)  ! MATRI X ( J , J ) , J=1 ,N ) 

CALL  LINECT (LINES, 3, 2) 

WRITE(6,223) 

WIRXT£Xiu-2iZl 

DO  39  K= 1 , N 


CALL  LINECT (LINES*  3,2) 

WRITE L6»  232)  ( VECTOR! K,J)  ,J  =  1,N) 

39  WRI TE ( 6, 223 ) 

C  (D*Q)(-1)=  Q(-l)*D(-l)=gT*D(-l ) 

£ - QI-=THE  TRANSPOSE  OF  THE  MATRIX  OF  EIGENVECTORS  OF _ 4 

C  D(- 1 )=  THE  INVERSE  OF  MATRIX  D  AS  DEFINED  PREVIOUSLY 

C  CALCULATE  THE  PRODUCT  (QT*D«1) 

DO  41  J= 1 , N 


VICTOR (  I  ,  J)=VICTOR! I , J )/D! J, J) 

-  41  CONTTNUF _ 

CALL  S EM  I  AN (N, VAR, VECTOR, Cl, Cl , MAT R IX , T I  ME , NT , 

1CEVR  .VICTOR) 

WRITE(6,22") 

WRITE! 6,225) 

WRITE(6,245) 

- WRITE (6.223) _ 

WRITE! 6,246) 

WR I TE ( 6 , 248 ) 

DO  34  J=1 #NT _ 

34  WRI TE ( 6 , 251 )  TIME(J),  ! C E VR ( J  ,  K  )  , K= 1 , 5 ) 

WR I TE ! 6 , 223 ) 

- WRITE<6,246) 

WRITE ( 6, 249) 

DO  35  J  =  1  ,  NT 

35  WR I TE ! 6 , 25 l )  TIME(J),  ( CE VR ( J , K ) , K=6 , 10  ) 
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C  FORMAT  STATEMENTS 

1  FORMAT ( 1 X»  2  I  4 ) 

2  FORMAT ( 10F3. 5) 

3  FORMAT !  1  1F7*  3) 

_ 4 _ FORMAT! IX, F16. 8) _ 

5  FORMAK  10F3. 5) 

220  FORMAT ( 1 H2 ) 

221  FORMAT ( 1H,10X,8H  . .CONTD ) 

222  FORMAT ( 1H, // ) 

223  FORMAT ( 1 H » / ) 

_ 224  FORMAT ( lHt 18 X, 28H  CQNC  ENTRAT I  ON  PROF  I LES-QNE-, 

111  HD IMENSIONAL/25X»22H  HOMOGENEOUS  MEDIUM) 

225  FORMAT  !1H,20X»32HSQLUTI ON  OF  THE  DISPERSION  MODEL, 
18HEQUATION/20X, 19HUS1NG  ORDINARY  B.C.I 

231  FORMAT ( 1H,30X, 12H  GRID  POINTS) 

232  FORMAT (1H,10X,5F11 ,6) 

-« - 233  FORM  AI-LLH  ,  3Q  X , 2 5_H _ LM1T  LAL-CQ ND I  T IQN  VEOTUR)  _ 

234  FORMAT ( 1H,10X,5F12.4) 

235  FORMAT ( 1H,30X,26H  BOUNDARY  CONDITION  VECTOR) 

240  FORMAT ( 1 H , 3 C X , 2  THOR  I G I NAL  COEFFICIENT  MATRIX) 

241  FORMAT ( 1H, 10X, 10F5. 1 ) 

242  FORMAT ( 1H,30X, 12H  EIGENVALUES) 

- 243  FORMAT  C1H>30.jLt-Lm_£IG£JlV.EC TORS  ) 

244  FORMAT ( 1H,20X,35H  CHECK  OF  SIMILARITY  TRANSFORMATION) 

245  FORMAT ( 1H,30X»25H  S EM  I -ANAL Y T I  CAL  SOLUTION) 

246  FORMAT (1H,25X , 29HC0NC ENTRA T I ONS  AT  GRID  POINTS) 

248  FORMAT ( 1H, 1 5X ,  5H  TIME,  5X ,  2H  1,  9X,  2H  2,  8X, 

12H  3,  8X,  2H  4,  8X,  2H  5) 

- 249  FORMAT  5H  TIME  ,9X,  2H  6,8X,2H  7,8X,  2H  8  , 

1 8X , 2H  9,  8 X ,  2 H 1 0 ) 

251  FORMAT ( 1 H,  15X,  F6.1,  2X,  5F1Q.6) 

253  FORMAT ( 1H , 1QX , 1 3HGR I D  SPACING^,  F11.6) 

2  55  FORMAT! 1H , 10 X , 9HMA TR I  X ( D ) / 10X , 

119H(DI AGONAL  ELEMENTS)) 

_ 256  FORMAT! 1H.?0X,19H  EIGENVALUES  OF  THE/20X , 

1 27H0RI GI NAL  COEFFICIENT  MATRIX) 

257  FORMAT ( 1H,20X  ,20H  EIGENVECTORS  OF  THE/20X, 

127H0RIGI NAL  COEFFICIENT  MATRIX) 

259  FORMAT (1H,30X,27H ORIGINAL  COEFFICIENT  MATRIX/ 

12C-X,  26H!  CONVERTED  INTO  SYMMETRIC)) 

— _ SLOP 

END 
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CONCENTRATION  PROF  I LES-ONE-D I MENS  I  ON AL 
HOMOGENEOUS  MEDIUM 


GRID  POINTS 

C  _ ° »  I  9^480 n .  2857  20 0. 380960  0,4-76200 

9 . 5  7  1 44°  0.666680  0.761920  0.857160  CL.  952400 


O.o 


0.0 

O  .0 


INITIAL  CONDITION  VECTOR 
0.0  0.0 
_ 0.0  0.0 


o  .0 
0.0 


BOUNDARY 

27.2990  0.0 

0.9  o.O 


CONDITION  VFCTOR 

0.0  0.0  0.0 

0.0  0.0  o.O 


44.  1 
-27.  3 
0.9- 
0  •  ° 

-16.8 
44.1- 
-27.  3 
o.O- 

0.0 
-16.8 
44.  1- 
-27.3 

! 

o.n 

-16.8 
44.  1- 

ORIGINAL  COEFFICIENT 

0.9  0.0  o.O  0.0 

9.9  0.0  0.0  0.0 

n • 0  0.0  0.0  0.0 
-16.8  0.0  0.0  0.0 

MATRIX 

0.0  0.0 

0.0  0.0 

0.9  0.9 

9.0  0.0 

o.c 

n  r, 

j  • 

0.0- 

-27.3 

44.1- 

-16.8 

0.9  0.0 

0.9 

0.0 

0.0 

9.0 

0.0 

0.  0- 

-27.3 

44.  1- 

-16.8  0.0 

0.0 

0.0 

0.  ' 
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9.  ~ 

0.0- 

-27.3 

44.1-16. 8 

9.9 
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0.  0 

0.9 

o.  0 

0.0 
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-27.3  44.  1- 

-16.8 

9.0 

0.0 

0.0 

9.0 

0.9 

9.0 

0.0 

C. 9-27. 3 

44.  1- 

-16.8 

0.0 

o.n 

c 

• 

C 

0.9 

0.0 

9.0 

0.0  0.9. 

-27.3 

27.3 

MATRIX(D) 

(DIAGONAL  ELEMENTS) 

-1.0 

1.3 

-1.6 

2. 1 

-2.6 

3.4 

-4.3  5.5 

-7.9 

8.9 

— - 

ORIGINAL  COEFFICIENT 

MATRIX 

(CONVERTED  INTO  SYMMETRIC) 

44. 1 

21 . 4 

0.0 

0.9 

0.0 

0.0 

C.O  0.0 

0.0 

0.0 

21.4 

44. 1 

21.4 

0.9 

0 . 0 

9.1 

9.o  o.o 

0.0 

0.0 

0.0 

21.4 

44.  1 

21.4 

0.0 

0.0 

o.o  o.o 

9  .(' 

9.0 

0.0 

O.C 

21.4 

44.1 

21.4 

0.0 

C.O  0.0 

0.0 

9 . 0 

0.9 

0.0 

9.0 

2  1 . 4 

44.1 

21 .4 

0.0  0.1 

0.0 

0.0 

0.0 

0.9 

0.0 

0.0 

21.4 

44. 1 

21.4  0.0 

0.0 

0.0 

0.0 

0.0 

0.9 

0.9 

o.o 

21.4 

44.1  21.4 

0.0 

C.O 

0.0 

9.0 

0.0 

0.9 

9.0 

0.0 

21 .4  44. 1 

21.4 

o.c 

0.0 

0.0 

0.9 

0.0 

0.0 

0.0  21.4 

44. 1 

21.4 

0.0 

9.0 

0.0 

0.0 

0.0 

0.0 

C.O  0.0 

21.4 

27.3 

1  ’  r  * 


.  1 


.  ?.o 


. 


• 

•  • 

• 

.«  .  6  I  -  1  .  ♦> 

• 

4 

•  • 

. 

*  I  •  ♦* »  l  •  T 

• 

• 

• 

. 

t  ,VS-C  ,r 

• 

•  • 

- 

•  • 

• 

• 

. 

• 

• 

i  • 

'  • 

« 

_ 

.  <• 

—  •  ►  • 

- 

. 

• 

. 

•  « 

. 

. 

. 

• 

•  • 

O.o 

. 

.  V  —  .  <? 


(  ?t  3JB  JAHOiJAI 

.  - 


• 

* 

• 

• 

• 

.IS 

i 

• 

• 

• 

• 

•  t* » 

• 

• 

• 

• 

. 

• 

• 

• 

. 

• 

• 

• 

• 

• 

• .  i\ 

• 

• 

■ 

• 

• 

• 

• 

• 

• 

*  .1  < 

•  ^ 

• 

# 

• 

• 

• 

• 

• 

•  0 


79.575516 


ro  i3iQ  l 
■p.24381  6 


•0 . 174016 
•0.403866 


C .249791 
■0.425163 


•0.31  2736 
•C. 30039^ 


0.3713nl 


•0.384614 

0.434599 


0 . 352969 
0. 348584 


■0.3^3192 

0.142810 


44.098236 

0.00  ' 


DF  SIMILARITY  transformation 
21.417811  n . O00000  -0.000000 

-0.000000  0.000000  o.pooroo 


eigenvalues 

85.052492  60.055819 

7n . 9  8942  8  13.5^7177 

35.1 56755 
47.748475 

6*334014 

23.397493 

EIGENVECTORS 
P.127548  -0.403341 

n.  3  38  5  29  - 0 . 30 0 001 

0.423819 

0.432589 

-9.193317 
' .  378072 

0.243893 

-0. 309533 

-0. 1 76935 

0.349676 

0 . 42  504 1 

P.428492 

0.073726 

-0.365414 

0.338813 

0. 1 79412 

-0 . 349952 

-0.418237 

0.  195132 

-0.312014 

-0.420024 

-Q.n 24892 

0. 403972 

0.434214 

0.323033 

0.387766 

-r. 180042 

0.017157 

-0.145311 

0. 389472 

0.433645 

0. 144125 

0.215093 

-0.265479 

-0.421184 

P.2875C8 

0.395259 

-0.351541 

0.425227 

-0. 326826 

-0.412829 

P.080330 

-0.348777 

-0.427805 

0.212675 

-p. 049701 

0.379456 

-0.387645 

-0.042745 

0.123840 

-0.016724 

0.323526 

-0.359013 

6 • 399578 

0.300353 

0.037988 

0.430675 

-0.298687 

0. 327779 

-0.034287 

-0.27386 1 

-0. 336499 

0. 194867 

0.415951 

-0.137052 

0.402809 

P.428268 

-0.274554 

p.312338 

-0.074345 

0.0  72  26  3 

0. 271940 

-0.373458 

-0.411552 

r .209934 

0.426432 

0.327093 

0. 4C8355 
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-n . r  o rQro 
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-O.OOOOQO 


0.r->nrr^  o.^o^oon  21.417811  44.098236  21.417811 

°*r  0  )0  -0.000  0.000000  0 . ''Oooqo 


•C.ONJ0 
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44. 09823 A 

-0. 000000 
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0.000000 

-0.000000 
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-0.000O0C 

0 #000000 
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-0.000000 
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_ _ EIGENVALUES  Qf  THE 

ORIGINAL  COEFFICIENT  MATRIX 
2.362  764  85.^52492  60.056819  35.156755  6.334014 

79,575516  70.989428  13.5071  7  7  47 .748475  23.  39  749  3 


EIGENVECTORS  OF  THE 
ORIGINAL  COEFFICIENT  MATRIX 


-C. 089301 

0.243816 

-0.  127548 
-0. 338529 

0. 403341 
0. 300001 

-o.423819 

-0.432589 

0.198317 
-0. 37807? 

-C. 221828 

C. 110905 

-n. 3831 08 

-n. 22555" 

0.445754 

-o.514832 

'"'.5  41325 

0.546225 

0*093983 

-0.465815 

-0.405915 

0.699897 

-0.550577 
-0.317  093 

-0.291547 

0.507027 

0.568678 

0.682546 

0.67964? 

0 • 040450 

-0.647836 

-  0  ji  6  2  2  2_6 1 

0.836831 

-0.372958 

0.899478 
_  C. 035541 

0.669165 

-0.301013 

0.  803261 

0.806795 

-0.949633 

-1 . 145118 

-r. 380587 

-0.567990 

0.701043 

0.191225 

1.11221? 

-0.759216 

-1.043751 

0.928307 

-1 . 306187 
0.607401 

1.431413 
-  1.  1740  66 

-1 . 100173 
-1.440092 

-1.389681 

0.715914 

0. 270408 
-0. 167305 

-1  •  701454 
-1 . 5933°9 

-1.623  30  1 
0.071765 

1.663442 

-1.339297 

0.  183426 
1.540575 

-0. 531417 
-1. 714647 

-2.1939] 1 
2.377336 

1.642988 
1.7930  15 

0.207803 
-n. 187556 

2.355871 

-1.498073 

-1.633871 

-1.840713 

-2.461314 

-2.43^743 

-1.358843 

-2.986394 

-2. 900499 
1.914514 

0.955691 

-2.177992 

-2.808858 

0. 518420 

-2.695121 
i  .  26945  7 

0.642360 

1.866134 

2.417312 

3. 793617 

-3.319723 

2.907579 

-3. 658345 

3.629925 
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SOLUTION  OF  THF  UI SPERS I  CM  MODELE QUAT I  ON 
USING  ORDINARY  B.C. 

SEMI -ANALYTI CAL  SOLUTION 


CONCENTRATIONS  A T  GRID  PG I N T S 


I  MF 

1 

2 

3 

4 

5 

0.0 

o.O 

O.C 

0.0 

0.0 

0.0 

0 . 1 

0 . 769229 

9.51 0666 

0. 291627 

0. 144962 

0.062142 

D  .2 

0.881334 

0.726742 

0. 556463 

0.393956 

0.257437 

° .  3 

o.  92  64  01 

0.825387 

0. 793163 

0. 570308 

0.439040 

0 .4 

0. 950320 

9. 880261 

0. 791245 

0.637702 

0.57631 7 

n.5 

°. 964788 

C. 914290 

9. 848156 

0. 767982 

0.677198 

0.6 

0.974247 

9.936889 

0. 886949 

0.824733 

C. 751912 

r.  7 

P.980764 

0.952630 

9. 914467 

0.866020 

0.808051 

0. 8 

985428 

9. 963985 

0.934579 

0.896753 

0 . 850804 

0.9 

0.988861 

0.972391 

0.949613 

P.920028 

0.883711 

l  .0 

0. 991440 

9.978734 

0.961036 

C. 937330 

0. 909239 

CONCENTRATIONS  AT  GRID  POINTS 

.  ME 

6 

7 

8 

9 

10 

n.n 

p.o 

0.0 

9.0 

0.0 

0.0 

0.  I 

o. 023652 

0.008024 

9 . 9Q2449 

0.000  6  8  1 

0. 00  Cl  94 

r.  2 

0.  15  53*99 

9.086648 

0. 044886 

0.021995 

0.01  1623 

0.3 

9.32  0244 

0. 221320 

0. 145574 

0.093349 

0.064813 

0.4 

9.464881 

9.361955 

0. 27 1609 

0.202702 

0.161786 

0. 5 

0 .580891 

9.484962 

0. 396816 

9. 324837 

0. 280299 

0.6 

9.671641 

C. 588621 

0 . 509292 

0.442366 

0.400025 

0.7 

0. 742582 

9.673173 

0.60529 0 

0.546912 

0.509507 

0.8 

9.798071 

9.741264 

9.684892 

0.635839 

0.604167 

0.9 

0 . 841577 

0. 795707 

0. 749758 

0. 709477 

0.683343 

1.0 

r . 875757 

9.839047 

0. 802044 

0. 769446 

0. 748232 
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CONCENTRATION  PROFILES -ONE  - 
HOMOGFNEOUS  MEDIUM 

DIMENSIONAL 

0.C9524O 

GRID  POINTS 

C. 190480  0.285720 

0.380960  0. 

4762C0 

0. 5 7 144 r 

0 . 6666  8r 

o .  76 1 9  2n 

0.85716°  0. 

952490 

o.o 

0.0 

INITIAL  CONDITION  VECTOR 

0 .0  0.0  0.0 

0.0  0.0  o.o 

o.O 

°.0 

BOUNDARY  CONDITION 

VECTOR 

3. 3053 

n  .  o  o .  o 

°.0 

0.0 

* 

• 

o.9  0.0 

O.o 

0.0 

- 


ORIGINAL  COEFFICIENT 

,MATP  IX 

25.7- 

16.8 

O.o 

9.  ' 

O.O 

0.0 

o.o 

9.0 

O.o 

>.C3 

-27.3 

44.  1- 

16 . 8 

9.o 

0.0 

0.0 

0.0 

0.0 

o.o 

O.C 

9.9- 

27.3 

4  4.1- 

16.8 

0.9 

0.0 

• 

0.0 

0.0 

O.o 

o.O 

0.0- 

27.3 

44.1 

-16.8 

o.O 

n  o 

• 

0.0 

9.0 

0.0 

O.o 

O.o 

o  r  - 

• 

27. 3 

44.  1- 

16.3 

0.0 

0.0 

o.O 

0.9 

0.0 

O.o 

0.0 

0.9 

-27.3 

44.1- 

16.8 

0.0 

0.0 

0.0 

9.0 

O.o 

9.0 

n  n 

• 

0 .  o  - 

27.3 

44.  1- 

lo.8 

0.0 

.  O.o 

O.o 

• 

O.o 

n  .  n 

3.0- 

27 . 3 

44.1- 

16.8 

0.  0 

O.o 

0.0 

0.0 

0.9 

o.O 

9.0 

0.0- 

27.3 

44 . 1 

-16.8 

O.o 

o.o 

o.o 

n  ^ 

• 

0.0 

0.0 

0.0 

0.0- 

2  7.3 

27.3 

MATRIX! C ) 

(DIAGONAL  ELEMENTS) 

-1  .0 

1.3 

-1.6 

2.  1 

-2.6 

3.4 

-4.3 

5.5 

-7.9 

8.9 

ORIGINAL  COEFFICIENT 

MATRIX 

( CONVFRTED 

INTO 

SYMMETRI C ) 

25.7 

21.4 

O.o 

o.o 

o.o 

o.O 

0.0 

0.0 

O.o 

O.o 

21.4 

44.  i 

21.4 

c 

. 

© 

o.o 

.  0 

0.0 

0.0 

o.o 

o.o 

2  1.4 

44.1 

°1.4 

o  .  o 

0.  9 

0.0 

O.o 

0.0 

0.0 

9.0 

O.o 

21.4 

44. 1 

21.4 

o.  3 

0.9 

o.O 

O.o 

0.0 

o.n 

n  n 

• 

O.o 

21.4 

44.  1 

21.4 

0.9 

o.n 

0.0 

O.o 

0.9 

o.O 

0.0 

O.o 

21  .4 

44. 1 

21.4 

0.0 

0.0 

o.O 

9.9 

O.o 

0.9 

0.0 

o.o 

21.4 

44 . 1 

21.4 

O.o 

o.O 

o.o 

n  n 

• 

n  r\ 

• 

O.O 

3.  ' 

21.4 

44.  1 

21.4 

o.o 

O.o 

“o 

• 

0.6 

O  .  o 

o.O 

0.0 

9.9 

21.4 

44. 1 

21.4 

O.o 

n  o 

• 

o.o 

r>  o 

• 

o.O 

0.0 

0.9 

0.0 

21.4 

27.  3 

. 


? .  1  - 

. 

. 

-r . 

• 

_ _ _ _ _ _ _  E  I GE  N  V  A  L  U  E  S 

1«  869805  B4. 877  4.690060 

78.910611  10.842538  69.616175 


67.90350 +  31.926387 

44.917610  2 0.193424 


eigenvectors 

2 . 2  5 5 5 5  q  .  '  7  *  •  J5  4046  8 

-0.14628°  .  0.214665 


-0*  277393  0. 378232 

0.332596  0.411477 


317231  0.2^ 4847  0.396244 

-'.363657  -0. 295129  0.440510 


417535  0. 110571 

o • 298970  - o . 105123 


0.339935  0.3X5934  -0.324471  0.008263 

--.4448Q6  0.031807  0.310]  76  -n.3? x  1  59 


— .  .  3  :>  1  r  "  i  0.39669 1  0.  200774  0.422861 

-"'.359328  0.245742  -0.070958  -0.311257 

p.55606r  '.439366  -0,044947  0.264301 

-'.139243  -0.413374  -o. 394715  0.30925] 


-'.  349r?4  '".439862  -"'.  1  18073  -0.252501 

-^-*-1.3  30  r  3  Q.  3961C8  -o.  399320  o.  323088 


0. 332094  0. 398131  0.262198  -0.427055 

0.355425  -0.201669  -0.081  0  4 9  -0.296) 


-0.44 lo 70 
-  0. 2941 47 


0.  14  >091 

0.433426 


0.361455 

-0.189607 


-0.345508 

-o. 221802 


-0. 165101 
0.437164 


-".305749  0.318180  -o .  3643  64  -0.022766  "'■.439336 

r. 4447^3  -r.n8?975  °. 302756  -0.334446  -0. 266125 


'.270736  0.2° 7684  ^.408221  0.412381  -0. "'84575 
"*367393  O.330505  Q.441763  0.284n96  -°. 140137 


- -"*228048 _ 0.077250  -0.386752  0.2885  74  -0.301271 

0.152454  - 0 . 43  ".223576  3.345314  07422535 


CHECK  OF  SIMILARITY  TRANSFORMATION 
29.665173  21.417811  -o.pnoooo  -0.000ron  -0. 00 000 0 

1  -  .  ■  -0.  0 . 0  pooo  -  . r ■ 


21.417811 


44.098236 


21.417811  C.ooonnn 


-o.orncoo 

—|i.i  ■'"infv, 


r^77r>.rr  44.093236  21.41781  1  -Q.ooorrn 


:  .  - 

.  - 

. 

.  - 

. 

. 

■ 

.  - 


2SI?  . 


. 


. 


.  - 


. 


•  ra*  I  a  * 


-O.'-O?'-  -  -  '.-rn-rn 


-0.090O<  p 
P.°0°09° 

. 

- A . °°o  o  n 

21.417811 

3.000000 

44. ^98236 
n . 99000° 

21.417811 

n.O 

.  .  CONTD 

-  # 

21.417811 

 p  .  n  ->  n  >  r 

n  9  n'yn  “pp 

-  0 . 0  0  9  °  p 
r  ,  0  P  0  9  ^  0 

21.417811 

-0 . 999000 

44.998236 

9 . 9  o  n  p  o  9 

0 • 00 00  0  c 

44.^98236 

-C. pop 
21.417811 

o. nococo 

-r . 0000C0 

0  .  COOOOO 
-9 . 900090 

2i.4i  rail 

-9. °00G00 

-P.oonopr 

0.  no  ^o'' 

-o. con non 

-0  .  OOOOOC 

° . 999°9n 

21.417811 

44. OQ8236 

21 .417811 

3 . 000  000 

-o. r 909 r o 

-0.00000 0 
-o.ooco°° 

-0 .  non  non 

21.417811 

-n.oronoo 

44.^98236 

0  .  ''  9000  0 

21.417811 

?. 00C000 
-0.000000 

r . oooppp 
-P.nnoo^n 

-  .00 

n. oo°9p° 

-n . oooo no 

21.417811 

0 .09000 9 
44.  "'982  3  6 

-0.9O00C0 

21.41 7811 

-0 • OQonrr 

r. 000000 

0. oponp° 

-0.00°° no 

0 . 900000 

-  r  #  n  p  ^  r  o  r 

-  O  ^oo'oo 

-  n  .  n  r  9  9  r  n 

21.417811 

27.296898 

•• 

.  « 

•k.  t 

i  ri» .  r 

_ ... _ _ _  E IGENVALUFS _0F  THE 

'< IGINAL  COEFFI CIENT MA T  k  I  X 

1.869805  84.877756  4.690960  57.903504 

1 ii.? 1 "61  1 _ «  84?  538  6 9 . b 1 5 1  75  +4 .91 7610 


31.926387 

20.193424 


n 


. . FIGENVFCTOP.S  OF  THE 

^IGINAL  COE  F  F I C  I»EN  T  MATRIX 
2  8  557  5  -^.074095  P. 404608  0.277393  -0.  37823 2 

1.46  /  8° r~ «  ?  5  44  4 ^_o.  21  46  65  -0.332596  -Q.4M  4  7  7 


- r . 4043  94 

0. 261 132 

0.505117 

-0.532257 

14^952 
- ' . 1 349  r  6 

-0.463576 

-r .376219 

0 . 56  1  5<*5 

0.381116 

-0. 552399 

0 • 722818 

-n. 513398 
-0.051 687 

0.527271 

-0.504037 

-0.^13427 

0.521888 

0. 716746 
0.477994 

-0.731244 
-  ?.  7442*51 

0.821 749 
n  .  5  0  9  0  5  7 

415904 
-0. 145990 

0.875960 

-0.644771 

0. 290200 
0 . 897845 

-0.940239 

-1  .  1602  25 

o.ll 8690 

-r . 69793? 

-0.954487 

0.367697 

1 . 091 587 

1.04231 7 

-0 .816633 

'  . 500692 

-1.174807  1.480670  -  0  • 397462  -0.849977  -1.163C61 

0 • 44771°  1.330394  -1.344205  1.087589  -0.746637 


-1.425064  - 1 . 7^844°  -1.125129  1.832555  o. 708474 
-1.52518?  n . 86538q  347792  1.274QQ2  -1.875935 


2  5^4  1,740  50  6  -  1 .  9 9  3  1  ?  7  -0.124533 

2.43261 n  -0.453889  1 .65613T  -1.82948 1  -1.455766 


-1.887892  -1.448219  -2.846600  -2 . 875606  0 . 589760 
-2.561895  -2.304672  -3.080492  -1.981r54  0.977300 


-2.027151  0.686688  -3.437803 

1.355188  -3.824146  1.987398 


2.565174  -3.478067 

3.069549  3.755971 
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. 
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SOLUTION  OF  THE  DISPERSION  MODE L E QU AT  I  ON 
USING  OANCKWERTS  6.C. 

_ _ SEMI -ANALYTI  CAL  SOLUTION _ 


CiJNCENTP  AT  IONS  AT  GRID  POINTS 


TIMF 

1 

2 

3 

4 

5 

O.n 

0 . 9  o  0  0  9  c 

9 . 000000 

3 .  '  3  ' 

0 . OQrooo 

3.00  )  0 

• - 

0.1 

r . 422938 

o. 75761 1 

9. 137594 

0 . 064475 

9.026672 

o.2 

0.591725 

0. 455387 

9. 327395 

0.218943 

0.136079 

0  •  3 

0.6941 82 

9.585614 

n. 473966 

0 • 36^758 

0. 267816 

— 

0 . 4 

r .  763657 

9. 677093 

9. 582353 

9. 484574 

r . 389275 

0.5 

9.81 3576 

0. 744129 

0.665417 

0. 580499 

0.493210 

">.6 

0. 8  5  9  7  4  8 

9. 794688 

9. 729574 

0.657151 

0.579999 

. . .  ~~ 

0 . 7 

9.879117 

9.833631 

9. 779836 

n. 718678 

0.651857 

9.8 

0. 9011 71 

9. 864114 

P.  819605 

r.  7 63 3 

" C. 71 1239 

0.9 

0 . 91 8  5  59 

9.888278 

0.851588 

0 . 808680 

0.760298 

1*9 

0 . 932423 

9. 907626 

9. 877333 

0.841574 

0.  80.6351 

I _  CONCENTRATIONS  AT  GRID  POINTS 

TIME  6  7  8  9  ~  10 


o.o 

L 

0 . 0  0 0  0  o  9 

9.90  '1000 

9. 09O0C0 

0  •  0 or  -iQQ 

C .0OO000 

0.004817 

0.003241 

9. 0  or  96 8 

0.000264 

0.000974 

0.2 

9.073568 

9.0^21 82 

9. 021 12  7 

0.910043 

0.005165 

0.3 

9. 186976 

9. 124109 

9. 078639 

9.948631 

0.032810 

9.4 

9.391511 

9.225254 

0 .  163247 

3.  1  1  15  72 

0.  '*91231 

9.5 

0.407766 

3.32841 8 

0 . 2  5  9  3  8  5 

0.205337 

C.  172772 

9.6 

9.501368 

C. 425191 

0.356112 

9. 39P053 

0. 265432 

L _ 1-7 

0.581875 

0. 512134 

0.447184 

0. 393289 

9.359502 

9.8 

9.659 2 59 

9.  5 8 33  n5 

9.529575 

9.489131 

0.443839 

0.9 

o. 707920 

0.653982 

9. 692224 

0. 558222 

C. 539198 

1  .9 

756315 

9. 710006 

0.665186 

0.626825 

9. 6C2286 

r 


. 

. 

. 

V  , 

. 

. 

. 

r-  >\  .0 

; 

f\  t  n<  .1 

. 

. 

. 

. 

. 

. 
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. 

. 

. 

u.O 

. 

. 

ooooolooo 
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C  SOLUTION  OF  THE  DISPERSION  MODEL  EUUATION-ONE 

C  DIMFNSIONAL  HOMOGENEOUS  CASE 

INPUT  DATA 

N=  THE  NUMBER  OF  GRID  POINTS. 

NT  =  THE  TOTAL  NO_.  JJF  TIMES. _ 

MA TR I X=  THE  COEFFICIENT  MATRIX 

X-  THE  DIMENSIONLESS  DISTANCES  OF  GRID  POINTS. 
C I =  THE  INITIAL  CONDITION  VECTOR. 

Cl=  THE  BOUNDARY  CONDITION  VECTOR. 

T I ME=  THE  DIMENSIONLESS  TIMES. 

_ DX=  THE  GRID  SPACING. _ 

PEAL  *8  DX 

DOUBLE  PRECISION  MATR  I  X ( 40 , 40 ) » VECTOR ( 40 , 40 )  , 
lTOlERCtW (40,40) , CEVR! 40*40 ) , TIME! 40) 

DOUBLE  PRECISION  X (40  It  VAR ( 40 ) , C I < 40 ), C 1 (40 1 
DOUBLE  PRECISION  D ( 40 , 40 ) , V  I C TOR ( 40 , 40 ) 

1-  _ READ  THE  DATA _ _ _ 

READ!  5,1)  N , NT 

READ! 5, 5 )  ( ( MATRIX! I,J),J=1,N),I=1,N) 

READ!  5,2  )  (X(J)  ,J=1,N) 

READ!  5,2  )  !CI!J),J=1,N) 

READ!  5,2  )  ! Cl ( J )  ,  J  =  1 , N  ) 

-te - READ!  5,3) _ ITIMEIJK  J  =  1.NT) _ 

RE  AD ( 5 , 4 )  DX 
NOR  M=  2 

TOL  ERC  =  0 .000 
WRITE(6,223) 

L I NE  S=  9 

_ CALL  LINECT  (LINES, 4, 2) _ _  _ 

WR I TE (  6 , 2  53 )  DX 
WRITE(6, 220) 

LINES  =9 

CALL  L INECT! LINES, 4, 2) 

WRITE(6,224) 

_  WRITE ( 6, 223 ) 

WRITE! 6, 231 ) 

CALL  LINECT(LINES,1,2) 

WR I TE ( 6 , 232 )  (X! J) ,J=1,N) 

CALL  LINECT (LINES, 4, 2) 

WRI TE ( 6 , 223  ) 

_  WRITE! 6,2^3) 

CALL  LINECT (LINES, 2, 2) 

WRITE!  6,234 )  ( C I ( J )  , J  =  1 , N  ) 

CALL  L INECT! LINES, 4, 2) 

WRI TE ( 6 , 223 ) 

WRI TE ( 6 , 235 ) 

CALL  L INECT (LINES, 2, 2) 

DO  30  J= 1 , N 

30  C1(J)=C1 (J)/(DX**2) 

WR I TE ! 6, 234 )  (Cl! J) ,J=1,N) 


JiU  •.  HOI<  9<  1  I  JHT  30  WO 1 TUJP2 


X  I  U  T.  1 1  0  I  H3I  J  JHT=X  ISTAf 

.*C  T  jv  I  Tin  j  JJ  1TMI  IHT  =10 

' 

.OKlOASa  QUio  1JMT  =XQ 

xa  e*jA3H 

. 

(  )  I  ,  l  ,  ,  (  .  ,  )  .  ♦  .  J  f  ’ 

« I 
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DO  36  J  =  1 »  N 
DO  36  K*1,N 

MATRIX! J ,K)*MATRIX ( J ,K) / (DX**2) 

36  CONTINUE 

_ WR_I_TE(6,22Q) _ __ 

WR I TE( 6 ,  240 ) 

CALL  LINECT( LINES, 4, 2) 

DO  31  J= 1 #  N 

WR  I  T  E  (  6 , 24 1  ) (MATRIX(JyK) , K= 1 , N ) 

31  CONTINUE 

_ _ CALL  TRAN S(N«DX»D. MATRIX  ) _ 

L I NE  S=  9 
WRITE(6,255) 

„ _ CALL  LINECTI  LINESiJL*2J _ 

WRITE ( 6 »  241 )  (D(J,J),J=1,N) 

CALL  LINECT (LINES»4,2) 

_ WR I TE ( 6 «  220  ) _ _ 

WRI TE  (  6,  261  ) 

DO  50  J=1,N 

CALL  L INECT (LINES,  1,2) 

50  WRITE(6,241)  (MATRIX! J,K) , K=1 ,N) 

CALL  JACOBI (N, MATRIX,  VECTOR , TOLERC , NORM ) 

_ WRI  TE  (fc«  220  ) _ 

L  I  NES  =  9 

CALL  LINECT (LINES, 6, 2) 

WRITE(6,242 ) 

WRITE! 6, 232 )  (MATRIX(J,J),J=1,N) 

CALL  L INECT( LINES, 3,2) 

_ _ WRITE(6,223) _ 

WRI TE( 6,243 ) 

DO  32  K=  1 , N 

CALL  LINECT (LINES, 7, 2) 

WRITE (6,232)  ( VECTOR (K,J) , J=1,N) 

32  WRITE(6,223) 

- CALL  CHECK! VECTOR, MATRIX, N,W )  _ 

CALL  LINECT ( LINES , 1 ,2) 

WRITE(6,223) 

WRITE(6,244) 

DO  3  3  J  =  1  ,  N 

CALL  LINECT( LINES, 7, 2) 

- WRI TE (  6, 232  )  ( W( J, K ) , K = 1 , N) 

33  WRI TE ( 6, 223  ) 

CALCULATE  THE  TRANSPOSE  OF  THE  MATRIX  OF 
THE  EIGENVECTORS 
DO  40  I«l*N 
DO  40  J=1,N 

- VICTOR ( I , J ) -  VECTOR ( J , I ) 

40  CONTINUE 

A=(D(-1)*A(*)*D) 

_A(*)=THE  ORIGINAL  COEFFICIENT  MATRIX 
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C  D=THE  DIAGONAL  MATRIX  USED  FOR  THE  CONVERSION 

C  OF  MATRIX  (A(*))  TO  THE  SYMMETRIC  FORM 
C  A=  THE  SYMMETRIC  MATRIX  DERIVED  FROM  THE  ORIGINAL 

C  COEFFICIENT  MATRIX  A ( * ) 

C  Q=THE  MATRIX  OF  EIGENVECTORS  OF  A _ 

C  CALCULATE  THE  EIGENVECTORS  OF  THE  ORIGINAL 
C  COEFFICIENT  MATRIX 

DO  38  1=1, N 
DO  3  8  J  =  1 ,  N 

VECTOR! I , J)=D( I ,  I) *VECTOR< i , J) 

38  CONTINUE 

WRITE (6,220) 

LINE  S=9 

CALL  LINECT (LINES, 6, 2) 

WRI TE ( 6, 266 ) 

WR I TE (  6 , 2 32 )  (MATRIX(J,J)  , J= 1 ,N ) 

_  CALL  L  I  NECT ( L I NES,3, 2 ) 

WRITE(6,223) 

WRITE(6, 257) 

DO  39  K=1,N 

CALL  LINECT ( LINES, 7, 2) 

WR I TE ( 6 , 2 32 )  (VECTOR(K,J)  ,J  =  1,N) 

39  WRITE(6,223) _ _ _ 

C  (D*Q)<-1)=  Q(-1)*D(-1)=QT*D<-1) 

QT=THE  TRANSPOSE  OF  THE  MATRIX  OF  EIGENVECTORS  OF  A 
C  D ( - 1 )  =  TH E  INVERSE  OF  MATRIX  D  AS  DEFINED  PREVIOUSLY 

C  CALCULATE  THE  PRODUCT  (QT*D*1) 

DO  41  I  =  1 ,  N 

_ DO  41  J=  1  ,  N _  _ 

V I C T  OR ( I , J ) =  V I  CTO R (  I  ,  J ) / D ( J , J ) 

41  CONTINUE 

CALL  SEMIAN(N, VAR, VECTOR, Cl, Cl , MATRI X , T I  ME ,NT, 

1CEVR  ,  VICTOR) 

WRITE (6, 220) 

_  WR I T  E ( 6 , 225 ) 

WR I TE ( 6 ,245 ) 

WRI TE ( 6 , 223) 

WRITE ( 6, 246) 

WRITE(6,248) 

DO  34  J  =  1 , N T 

_ 34WRITE(6,251)  T I  ME ( J  )  ,  (CEVR(J»K),K=1,5) 

WRI TE ( 6 , 223 ) 

WRITE( 6,246) 

WR I TE ( 6 , 249 ) 

DO  35  J= 1 , NT 

35  WRITE(6, 251 )  TIME(J),  ( C E VR ( J , K )  , K=6 , 1 0  ) 

WRjTE(6,223) 

WRITE (6,246) 

WRITE! 6, 259) 

DO  45  J= 1 , NT 


’  /  I  i  /  /  T  '  J;  .  i  ft  I  i  T  - 

I 

Id  lx  3m  T  30  -4  03  VI  *00  X  1  XT  AM  31XT3KMY2  3HT  *A 

(  *  )  A  XIXTAM  TH3I31333D3 
T  J  IV/  i)  13  3C  X  I  XT  A  ■•«  3HT=i 

X  I,  XT  AM  TM31JI33303 
, I -I  I  f 
v  1 1  =  i  i  €  or. 

4  0,1)  T  (  f  )  “  ( L  »  )  T  3  . 

dU/.IT  JD  h 

(  t  )  ’ 


=  (  '  I  i 

(  »  *  i  J )  r  j  \  j  j  i  .. 


{ .  ,  )  r  A 

l  t  -  t  »  (  L  *  l.  )  1  >  )  (  <  :  ,  )  r  I 

(  ,  ,  I  )  ■  >  _■ .  1  I  I  JJ  A.) 

( 

(  ,  )  M 

'  t  I  =  X  4-C  0< 
(r  r  ’  f?  MI  j)l  )  MI  J  jjm 

•  .  -  Lt  III  )  J  )  (  <  V  f  )  :  I 

(  *  )  I 

i ;  - )  TtMi-i  i  - )  t.  - 1 i  -  n .  ) 

M  .•  i  •  ,  .  -  r  •»  i  -  r  q 

if’  v'wl  ■  ■  <  "M  T  JTAJIOJA3 

,i=i  no 

,  i  =  L  i- 


1 i,  t  »  \  (  l  *  >  i  V  (  l  ,1 )  ;  ;  V 

3UMITH03 

♦  .  Il,i  *  !  J,r  »  TJ  ,  A  v'  ,  .  )  >  I  <:  J  I  ) 

4  :  IV, x v 


I  .  j  ,  ( u  n 


!  »  *  t  »  L  )  V  ) 


(  U)  If 


*  ,  )  T  I X 

i  c.  S  S  *  )  T  i  • 

(  ,  l 

(  S  »  )  1  i  I  o 

S  ,  )  ’  !  •■  r 

(  i  *  1  ,  )  - 

T,  ,  I=t  *1 

(I  (  ,  )  T  I  X  . 

( r  ,  )  r  i  m 

(  ,  )  T 

■ 

• 

(  Ic*S  ,  )  IT  I 

(  «  )  i  ; 

(  •  S  ,  )  T  ! 

I  ■  »  3  )  I T  I  -i 

. 


B-20 


45  WRITE(6,251)  TIME(J),  (  C  E  VR  (  J  ,  K  )  ,  K=  1  1  ,  1  5  ) 

WRITEC6, 223 ) 

WRI TE ( 6,246) 

WR I TE ( 6, 260 ) 

_ DO  46  J= 1 , NT _ 

46  WRITE(6,251)  TIME(J),  (  CE  VR  {  J  ,  K  )  ,  K=  1 6 , 20  ) 

C  FORMAT  STATEMENTS 

1  FORMAT ( 1 X , 2  I  4 ) 

2  FORMAT ( 1  OF 8.  5) 

3  FORMAT (11F7.3) 

4  F0RMAT(1X,F16.8) _ 

5  FORMAT ( 10F8  •  5  ) 

220  FORM AT ( 1 H2 ) 

221  FORMAT ( 1H, L0X,8H  .  . CON  TO ) 

222  FORMAT ( 1 H, / / ) 

223  FORMATdH,/) 

_  224  FORMAT!  1  H,18X,23H  CONCENTRATION  PR  CF  I  L  E  S  -QNFj- , 

111 HDIM ENSIGN AL/25X,22H  HOMOGENEOUS  MEDIUM) 

225  FORMAT ( 1 H , 20 X , 32HSOLUT I  ON  OF  THE  DISPERSION  MODEL, 
18HEQUATION/20X, 19HUS ING  ORDINARY  B.C.) 

231  FORMAT ( 1H, 30X, 12H  GRID  POINTS) 

232  FORMAT! 1H,10X,5F11 .6) 

— 232-  F0RM_4.T1.1Hj  30  X  ,  25H  IN  I  T  I A  L  COND  I  T  I  ON  VECTOR) 

234  FORMATdH,  10X,5F12. 4) 

235  FORMAT ( 1H,30X,26H  BOUNDARY  CONDITION  VECTOR) 

240  FORMAT  dH,30X,  19H  COEFFICIENT  MATRIX) 

241  FORMATdH,  10F6.1) 

242  FORMAT ( 1H,30X, 12H  EIGENVALUES) 

— 243  FORMATdH ,30X,  13H  EIGENVECTORS) 

244  FORMATdH,  20X,35H  CHECK  OF  SIMILARITY  TRANSFORMATION) 

245  FORMAT (1H,30X,25H  S EM  I - AN AL Y T I C AL  SOLUTION) 

246  FORMAT (IN, 2 5 X , 2 9HC0NC E NTR A T I ONS  AT  GRID  POINTS) 

248  FORMAT (1H,15X,  5H  TIME,  5X,  2H  1,  9X,  2H  2,  8X, 

12H  3,  8X ,  2H  4,  8X,  2H  5) 

—  249  FORMATdH, 15X,  5H  TIME,9X,2H  6,8X,2H  7,8X,2H  8, 

18X,2H  9,  8  X ,  2H1C) 

251  FORMATdH,  15X,  F6.1,  2X,  5F10.6) 

253  FORMAT  (  1H,  10X,  13HGR  ID  SPACING=,  FU.6) 

255  FORMAT  d H , 1 0 X , 9HMA TR  IX (D )/10X, 

119H( 01  AGONAL  ELEMENTS)) 

— ?  56  FORMATdH  ,20X ,  1 9H  EIGENV  A  L UES  OF  T  HE /2QX, 

127H0RIGINAL  COEFFICIENT  MATRIX) 

257  FORMATdH, 20X  ,20H  EIGENVECTORS  OF  THE/20X, 

1 27H0RI G I N AL  COEFFICIENT  MATRIX) 

259  FORMATdH, 15X,5H  TIME,5X,2H11,9X,2H12»6X,2H13» 
18X»2H14,8X,2H15) 

3  60  FORMATdH,  15X,5H  T  I  ME  ,  9  X  ,  2H 1  6 , 8X  ,  2H 1 7 , 8  X  ,  2H 1  8  , 

1 8 X , 2 H 19, 8X , 2 H20  ) 

261  FORMAT d H , 30 X , 2 7H0R I G I N AL  COEFFICIENT  MATRIX/ 

120X, 26H( CONVERTED  INTO  SYMMETRIC)) 
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STOP 
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CONIC  ENT  R  AT  ION  PROF  I LES-ONE-D I  MENS  I  ON AL 
HOMOGENEOUS  MEDIUM 
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CONCENTRATION  prof iles-one-dimensiqnal 
HOMOGENEOUS  MEDIUM 
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SOLUTION  OF  THE  DISPERSION  MODEL  EQUAT I ON 
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- - - - S r  jl -ANALYTICAL  SOLUT  I 
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PROGRAM  FUR  INTERPOLATION 
INTERPOLATE  THE  VALUES  UF  CONC  ENTRAT  I  ON 
CORRESPONDING  TU  ONE  GRID  FROM  THOSE 


OF  A  HIGHER  POINT  GRID 
N-  THE  NUMBER  OF  GRID 
TO  BE  INTERPOLATED)' 
NN=  THE  NUMBER  OF  GRID 
ABOVE  ) 


POIiilS  (  THF  VALUES 
POINTS  (  GREATER  THAN 


NT=  THE  TOTAL  NUMBER  OF  IIMES 
X=  THE  DIMENSIONLESS  DISTANCES  OF  THE  GRID 
POINTS  CORRESPONDING  TO  THE  VAIIJFS  TO  RF 
INTERPOLATED ) 


XX-  THE  DIMENSIONLESS  DISTANCES  OF  THE  GRID 
POINTS  (CORRESPONDING  10  THE  HIGHER  POINT  GRID) 

REAL  X.UO)  f  XX  (30 1 «  TIME  ( 15 1  »CQNC(  15  *  10  )  9 

ICEVR (15,20) »  CGR I D ( 15,10) 

_ REAL  CINTP(  15, 10)  , ERROR (15,10) 

INTEGER  I  » J  »  N  ,  N N  »  N T 
RE AD ( 5 , I )  N , NN , NT 
READ(5,2 )  ( TIMEC  J) , J=1,NT ) 

DO  3  J  =  1 , NT 

RE AD ( 5 , 6  )  (  CEVR ( J ,K ) , K= I , NN  ) 

3  CONTINUE 
DO  5  J  =  1 , NT 

RE AC ( 5 , 6  i  (  CONC ( J , K ) , K=  I  ,  N ) 

5  CONTINUE 

RE  AD ( 5 , 1 3 )  ( X ( J )  , J= 1 ,  i  ) 

RE AD ( 5 , 1 3  )  ( XX ( J  )  , J  =  1 ,NN) 

_ WR I TE( 6,220) 

L I NES=  10 

CALL  LINECT (LINES, 4, 2) 

_  WRI TE( 6, 261 ) 

CALL  LINElT (LINES, 3, 2) 

WR I TE ( 6 , 262 )  (X(I),I=1,N> 

WRITE(6,222) 

WRI TE(  6, 263  ) 

CALL  L I NECT ( LINES, 3, 2) 

_ WRITE(6»26? )  ( XX (  I  >  , 1=1, NN) 

WRITE (6, 223) 

WRITE(6»225) 

L  I  N  F  S=  9 

CALL  L INECT ( LINES, 4, 2 ) 

WRITE( 6, 245) 

WR I TE ( 6, 223  ) 

WRITE(6,.?46) 

WRITE(6,247) 

.  WRITE(6,248) 

DO  7  J= 1 , NT 

7  WRITE(6,251)  TIME(J),  (  CE  VR ( J  »  K ) »K=1,5) 

WRI TE ( 6 , 223 ) 
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WRI TE(6,246) 
WRITE! 6,249) 

8 

DO  8  J  =  1 »  NT 
WRI TE (6, 251 ) 
WRITE! 6*220) 

TIME!J),(CEVR( J,K)  ,K=6, 1C ) 

WR I TE ( 6 »  246 ) 
WRI TE! 6, 259) 
DO  15  J= 1 , NT 

15 

WRITE(6, 251 ) 
WRITE!6,223) 
WRITE! 6,246) 

T  I  ME  !  J  )  ,  (CEVR(J,K) ,K=11,15) 

16 

WRITE! 6,258) 
DO  16  J= 1 , NT 
WRITE(6, 251 ) 

TIME(J),  (CEVR ( J  ,KJ ,K=16, 2r  ) 

WRI TE ( 6, 220 ) 

L I NE  S=  10 

CALL  LINECT(LINES,3j2) 

WR I TE ( 6 , 245 ) 
WRITE (6,223) 
WRI TE(6, 246 ) 

WR I T  E ( 6  »  2  50 ) 

WR I TE ! 6 »  248 ) 

DO  9  J  -  1  ,  NT 

9 

WR I TE ( 6 , 251 ) 
WRI TE ! 6 , 223 ) 
WR I TE ! 6 , 246 ) 

TIME(J),  { C  0  NC  (  J  »  K  ) , K=  1 , 5 ) 

17 

WRITE! 6,249) 
DO  17  J= 1 , NT 
rtR I TE ( 6 j  25 1 ) 

T I  ME ( J  )  ,  (CONC!J,K) »K-6, 10) 

CALL  C ALCU ( 20 
WR  I  TE(  6,22^  )’ 

L I NE  S=9 

, N, NT, CEVR, 1 ,X, TIME,  CINTR,XX) 

CALL  L INECT (LINES, 4, 2) 

WRI TE (6,260 ) 

WRI TE(6,243) 

10 

DO  10  J= 1 , NT 
WRITE(6,251) 
WRI TE! 6, 223) 

TIME ( J) , (CINTP! J,K) ,K=1,5) 

3° 

WRITE! 6,249) 
DO  30  J= 1 » NT 
wRITE( 6, 251 ) 

TIME(J),  (CINTP (J ,K)  ,K  =  6, 10  ) 

27 

DO  27  J= 1 , NT 

DO  27  K=1,N 

ERROR! J,K) =C INTP! J ,K )-CONC(  J  »K ) 

WRITE(6,220) 

WRITE(6,255) 

WRITE<6,223) 

WRI TE(6,243) 
DO  11  J  =  1  ,  NT 


11  WR I TE ( 6 , 25 1 )  T I  ME ( J ) »  ( E RROR ( J , K )  ,  K= 1 , 5 ) 
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WRITE( 6,223) 

WJR I  T  E  (  6 , 2  5  5  ) 

WRITE( 6, 223 ) 

WRITE (6,249) 

_ 00  29  J= 1 1  NT _ 

29  WRI TE ( 6 , 251 )  TIME(J),  (  E RROR ( J , K )  7k=6 , 10  ) 

C  FORMAT  STATEMENTS 

1  F.QRMAT  ( 1  X ,  3 1  3 ) 

2  FORMAT  <X0F7. 31 
6  FORMAT (5F16. 6) 

_ 13  FORMAT ( 1 QF8 . 5 ) _ 

220  FORMAT (1H2) 

222  FORMAT ( 1H,// ) 

221  FORMAT (1H,/) 

225  FORMAT ( lHf  20X$ 32HSOLUT I  ON  OF  THE  DISPERSION  MO Dll , 
1 8 HE QUA T I 0N/20X , 19HUS I NG  ORDINARY  B.C.) 

— 24  5  FORM  ATJJJjj^jQX,,  2  5H  SEM  I  -  ANA  L  Y  T  I  CAL  SOLUTION  ) 

246  FORMAT ( 1 H , 2 5 X » 29HC0NC ENTRAT I ONS  AT  GRID  POINTS ) 

247  FORMAT ( 1H,40X, 17HTWENTY  POINT  GRID) 

248  FURMAT  (1H,1  5X,  5H  TIME*  5X  *  2H  1,  9X,  2)i  2,  8X, 

12H  3,  8X ,  2H  4,  8X,  2H  5) 

249  FORMAT ( 1H, 15X ,  5H  TIME,9X,2H  6,8X,2H  7,8X,2H  8, 

, - L£X»2H  9,  8X ,  2  H 1 C  ) _ 

250  FORMAT (1H,40X, 14HTEN  POINT  GRID) 

251  FORMAT ( 1H,  15X,  F6.1,  2X ,  5F10.6) 

255  FORMAT ( 1H,30X, 18H  ASSOCIATED  ERRORS) 

258  FORMAT (1H,1 5X»5H  T I M E , 9 X , 2H 1 6 , 8 X , 2H 1 7 , 8 X , 2H 18 , 

18X, 2H19, 8X, 2H20 ) 

—  2  59  FORMAT  (jH,  1  5X  ,  5H  1  IM.E  ,  5X  ,  2H1 1 , 9X  ,  2H12 , 8X,  2H13  , 

18X, 2H14,8X, 2H15) 

260  FORMAT (1H,30X,20H  INTERPOLATED  VALUES) 

261  FORMAT ( 1H,25X,27HGRID  PQINTS(TEN  POINT  GRID)) 

262  FORMAT (1H,1°X,5F10.6) 

263  FORMAT ( 1H , 25  X , 30HGR I D  PO I  NTS ( TWENTY  POINT  GRID)) 

STOP _ 
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PROGRAM  FOR  INTERPOLATION 
INTLRPULAT-  THE  VALUES  OF  CONCENTRATION 
CORRESPONDING  TO  ONE  GRID  FROM  THOSE 
OF  A  HIGHER  POINT  GRID 

_ Nf _ THE  NUMBER  OF  GRID  POINTS  (  THE  VALUES 

TO  BE  INTERPOLATED) 

NN=  THE  NUMBER  OF  GRID  POINTS  (  GREATER  THAN 

ABOVE) 

NT=  THE  TOTAL  NUMBER  Oh  TIMES 

GR I DX=  THE  DIMENSIONLESS  DISTANCES  OF  GRID  POINTS 

- (CORRESPOND! NG  TO  THE  VALUES  TO  BE  I NTERPOLATED ) 

GR I DN=  THE  DIMENSIONLESS  DISTANCES  OF  GRID  POINTS 
(CORRESPONDING  TO  THE  HIGHER  POINT  GRID) 

REAL  GR IPX (101 1 6RIDN( 20 1 1 T IHE ( 15 ) ,CQNC< 15, 101 
l ,  C  E  VR  ( 15, 20)  ,  WORK ( 300  ) 

REAL  CINTP( 15, 10) , ERROR (  15,10) ,  X ,  F  !  3  0  0  ) , ARG(20 ) 

_ 1  t  Z ( 2  0 )  tY,YY(20)tVAL(30Q) 

INTEGER  I ,J,N,NN,NT 
RE AD ( 5 , 1 )  N ,NN ,NT 
RE  AD ( 5»  2  i  ( TIME! J )« J=1,NT) 

DO  3  J=1 t NT 

RE  AD  (  5 , 6 )  ( CEVR ( J , K )  , K= 1 , NN ) 

3  CONTINUE _ 

DO  5  J= 1 , N  T 

RE AD ( 5 , 6  )  ( CONC ( J , K ) , K= 1 , N ) 

5  CONTINUE 

READ( 5,13)  (GRIDX(J ) , J=1,N) 

R E  A D  (  5 , 1  3  )  (  GR  I  DN  (  J  )  ,  J-=  1  ,  NN  ) 

_ WRITE! 6,220) 

L I NE  S=  10 
CALL  LINECT (LINES»4,2) 

WR I T6 ( 6, 264 ) 

CALL  L INECT ( L INES, 3, 2) 

WRITE(6,265)  ( GR  I  OX ( I )  ,  I  =  1 , N ) 

_ WRI T  E (  6 , 222  ) 

WRITE! 6,266) 

CALL  LINECT (LINES, 3, 2) 

WRITE (6, 265)  ( GR  I  UN ( I  ) , I  =  1 ,  r  IN ) 

WRITE! 6,223 ) 

WRI  TE(  6, 225) 

_ L  I NE  S  =  9  _ 

~CaIl  LINECT! L INES ,4,2 ) 

WRI TE! 6, 245) 

_  WRITE(6,223) 

WRI TE ( 6, 246 ) 
wRl TE (6, 247 ) 

_ WRITE(6,248) 

DO  7  J= 1 , NT 

7  WRITE(6, 251 )  TIME(J),  ( C E VR ( J  ,  K ) , K= 1 , 5 ) 

WRI TE (6,223) 


1 

• 

>J t  ,  (  '  )VV  t  Y,  I  ) 
1  M  ilt  I 
T  j.h  ,  C  «<  1 


1 1  ,  i  u  )  :  1 1  r«  i 

Ti<1t  1*1 

, 


(4«L)3tf(0)  ia«£)GA  * 

' 

■ 

<  'r,S,d)3T  I  i 

UdS  ,  3  )2T  I 
(S.f «23«ij)T 

■ 

|<3> JTI*« 

. 

(s*£,e3nnno3ni j  jja 

(c*ssta)  Tisk 

(S^Sfd). T l* 
l£SS«6>3TI#fc 
(c*S,d>  3Tia, 

(  r  .  >  3 '  ; 
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WR I T  E ( b  »  246 ) 

WR  I  T  E  !  6 ,  249 )  _ _ 

DO  8  J= 1 ,  NT 

8  WPITE(6,251)  TIME ( J } , (CEVR ( J ,K) , K=6, 10 ) 

W RI  T  E  !  6 , 2  20  ) _ _ 

WR 1 TE ( 6 ,  246 ) 

WRI TE ( 6 , 259 ) 

_ . DO  15  J= 1  *  NT . 

15  WR I TE ( 6  »  2  5 1 )  TIME(J),  ICE  VR<  J  f  K )  f  K= 11,15) 
WRI TE(6, 223  ) 

WRITE!  6,246) _ _ 

WRITE (6, 258) 

DO  16  J= 1  *  NT 

lb  WRITE!6,251)  1  IMEC  J  )  » _ (CEVR  (  J  ,  K )  ,  k=  16  ,  Z  3  ) 

WRI TE(6» 220) 

LI NES= 10 

CALL  L I NECT ( LINES, 3,2) _ 

WRITE(6, 245) 

WRITEI6, 223) 

WRITE(6f 246) 

WRITE (6, 250) 

WRI TE ( 6,248) 

_ DO  9  J=  1  ♦  NT _ _ 

9  WRITE(6,251  )  TIME(J),  (  CGNC  (  J  ,  K  )  ,  K=  1 , 5  ) 
WRITE(6,223) 

WRITE! 6  §  246 ) 

,  RI TE ( 6*  249 ) 

DO  17  J  =  1 , NT 

17  WRI TE ! 6, 251 )  TIME! J) ,  (CGNC U ) ,K=6, 10 ) 
DO  14  JJ=1,NN 
Z ! J J )  =  GR  ION ( J J ) 

14  CONTINUE 


THE  TABLE  OF  Z  VS  F  READY  FOR  ONE  VALUE  OF  TIME 


ORDER  THE  TABLE  USING  S.S.P 


I  ROW  =2C 


IC  UL  =  1 

_ ND I M=2Q 

DO  19  J  =  1  , N T 
DO  19  1  =  1, N 
X=GR  IDX (  I  ) 

DO  31  J J=1 , NN 
F ( J J  >  =  CEVR ( J  ,  JJ  ) 

31  CONTINUE _ _ 

CALL  ATSG(X»Z»F , WORK, I  ROW , I  COL , AkG , VAL , NUl M) 
EPS=  0 • OOOC 1 


CALL  AL I ( Xf  ARG, VAL,Y , NDIM , EPS , I ER ) 


,  031] 


i 


■ 


ti=c 

. 

iSfdIBT I 


(  '  ,  i )  1  . 

■ 

'  t  I  -  • 


C  I  c  S  ♦  i }  II 

ie*$,a>3Ti  <4 

. 


r  .  ,  )  0  tit)  I  <  '  St  *  >  T1 

HH.I-tt  M  01 


. 

1,1*1  91  00 
{ I  )XC  ifl0*X 
/Jrf.I-lL  U 


(LttU  ^33*11103 

♦  Jilt  l  t^ON  t3,I «  X  )32T  A  j  J  A3 

>03.1  *2*  * 


- 
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YY  (  I  )  =  Y 

C I  NT P ( J , I  ) =  Y  Y {  I  ) 
19  CONTINUE 

WRI TE ( 6 »  220 ) 

L I NE  S=  9 


CALL  LINECT(LINES,4,2) 


WRI TE ( 6, 260 ) 

WR I TE { 6 , 243 ) 

DO  20  J  =  1 , NT 

2n  WRITE(6,251)  T  I  ME  (  J  )  ,  (  C  I N  TP  <  J  ,  K  )  ,  K=  1 , 5  ) 
. WR I TE ( 6 , 223 ) 


WRITEC6*  249) 

DO  30  J  =  1 » NT 

30  WRI TE ( 6 1  251 )  TIME(J)t  <CINTP(J,K) >K=6,1Q) 

DO  27  J=1»NT 
DO  27  K=  1 ,  N 

_ Z7_ERR0R (J,K)=CINTP(J«K ?-CQNC( _ 

WRI TE ( 6,  223  ) 

WRI T  E ( 6, 255  ) 

WRITE ( 6*  223 ) 

WRITE (6, 248 ) 

DO  28  J= 1 » NT 

-  28  W  R I  T  E  (  6  ,  251)  TIME(J).  (ERROR (J»K)  ,K=1,5 ) _ 

WRITE(6,223) 

WRITE(6,255) 

WR I TE ( 6  »  22  3  )  , 

WRI T E  < fa, 249) 

DO  29  J= 1 , NT 

_ 29  WRI TE (6, 251 )  TIME( J  )  ,  (ERROR (J,K) ,K=fo, 10)  _ 

^  FORMAT  STATEMENTS 

1  FORMAT (IX, 3  I  3) 

2  FGRMAT(1^F7.3) 

6  FORMAT ( b  F 1 6 • 6 ) 

13  F0RMAT(19F8.5) 

22^  FORMAT ( 1 H 2 ) 

22 2  FORMAT ( 1 H , / / ) 

223  FORMAT ( 1H, / ) 

122  5  FORMAT ( 1H , 20X , 32HS0LUT I  ON  OF  THE  DISPERSION  MODEL t 
18HEQUATION/20X« 21HUSING  DANCKWERTS  b.C.) 

24b  FORMAT ( 1H,30X,25H  SEM I -ANAL YT I  CAL  SOLUTION) 

_ 2  4  6  FORMAT ( 1 H ,  2 5 X , 29HC0NCE NTR AT  I UNS  AT  GRID  POINTS) 

247  FORMAT { 1H,40X, 17HTWENTY  POINT  GRID) 

248  FORMAT ( IN, 1 5X,  5H  TIME,  5X,  2H  1,  9X,  2H  2,  8X, 

12H  3,  8X ,  2 HI  4,  8X,  2H  5) 

249  FORMAT ( 1 H , 1 5 X ,  bH  TIME ,9X,2H  6,8Xf2H  7,8X,2H  8, 

1 8X , 2H  9,  8 X ,  2H10) 

_2 50  FORMAT ( 1H,40X, 14HT EN  POINT  GRID) 

251  FORMAT (1H,  15X,  F6.1,  2X,  5F1C.6) 

255  FORMAT (1H,30X, 18H  ASSOCIATED  ERRORS) 

258  FORMAT ( IN, 1 5X, 5H  T IME , 9X , 2H 1 6 , 8X , 2H 17 , 8X , 2H 18  , 
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18X,  2H19, 8X,2H20) 

259  FORMAT  (  1H  ,  I 5X  ,5H  T  :  t  5  X  ,  2HJJLjl9X  ,  2H1 2 , 8X  ,  2 H 1 3* 
18X »  2H14* 8X«  2H15 ) 

26^  FORMAT (1H»30X»20H  INTERPOLATED  VALUES) 

2ft4  FORMAT ( !Ht25X, 2 7HGR I D  POINTS(TEN  POINT  GRID)) 

265  FORMAT (1H»10X»5F10.6) 

266  FORMAT < 1H, 25X,30HGRID  POINTS!  T  v*ENT  V  POINT  GRID)) 

_ _ siqe. _ _ _ __ _ 

END 
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GRIG  pLlNTSCTtN  POINT  GRID) 

C.C95^4C  C.19C56C  0.26572C  C. 380560  0.476200 
G.  5  7  a44jC  C.ctcoaO  C .  76192C  C  .  85  7  loC  0 .9524QC 


GRIG  POINTS!  TWENTY  POINT  GRIG) 
C.C46/6C  C.C975oO  0.146340  C.  195120  0. 2439QC 

C.^ac.  L.j'n-tj,  Q  >390240  C.u-.>G20  G.4o7b00 

0 . 536  5  8C  C.5b536C  0 . 6  34 1 40  0  .  o62  9  20  0.731700 

C. 78C46C  C . 62926C  0.878C4C  0.926620  0.9756CC 


SOLUTION  LP  THL  DISPERSION  NCOEL  t  ^UAT  ION 
LSI  NO  lANGKaERI  S  6.C. 

semi-analytical  solution 


CONCENTRATIONS  AT  GRID  POINTS 

TWENTY  POINT  oRIU 

■  IJLME _ _ _ 1 _ _  ___2™  3  4  5 

C.l  0.496396  0.400163  0.3109o3  0.232304  0.1o701o 

0.2  0.653666  0.582699  0.510954  0.439653  0.371536 

_ C^3 _ C. 748220 _ C. 691751 _ 0.635550  C. 577040  0.517940 

C • 4  0.605843  0.764521  0.720024  0.672664  0.623656 

0.5  C. 646616  0.616143  0.780704  0.742542  0.701961 

L.6  C, 6/3352  C. 654144  Q. 825672  ;./94o72  C .76X103 

C.7  C. 903634  0.662632  0.659607  0.834516  0.807044 

C . 8  C.9218L9  C.9C4964  0.886195  0.865479  0.642828 

C . 9  C. 935999  C. 922255  C. 9Co669  C. 6696o0  0. 671152 

1 .C  C. 947216  C. 935939  0.923303  0.909260  0.8937 82 


CUN0LNTRA1 IONS  Ai 

GRID  POINTS 

TIRE 

6 

7 

8 

9 

10 

c.x 

C . i  15  137 

C.C76116 

C. C46234 

0. 029294 

0. 01705Z 

C  .  2 

C. 307701 

C. 245691 

0. 198415 

0. 18V523 

0.117434 

C .  3 

C .455203 

C. 4C1947 

0.357201 

0.295845 

0.246590 

C  •  4 

C . 3  /  J03b 

C. 521932 

0.4  7C525 

C. 42C632 

0. 372366 

0.5 

0.655421 

0.615327 

0. 5  7CL13 

0.324O40 

0.479177 

C  .6 

C. 728763 

C. 688352 

0.64  9*+  6  6 

0.609^98 

C . 566609 

C.l 

C.  77  /5C2 

C • 746054 

Q. 712913 

0.678350 

0.642689 

C  .8 

C .  6  1 829 1 

C. 75 19cC 

0. 763970 

C. 734512 

0.703826 

0.9 

C. 85C7  79 

C • 82b  7b9 

0. bC5270 

C. 780355 

C • 7  5^22  6 

l.C 

C . o  7o8o  j 

0. b  5  852o 

C. 638827 

0.617663 

0.795775 
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FiU  POINTS 

T  I  RE 

11 

12 

13 

14 

15 

l  .  1 

G.CC95io 

1.QQ5Q93 

C • CC2b 1 o 

L • CO  12  90 

C.C00611 

C.2 

C. C874Q2 

C • C6  3bC  5 

0. „4b252 

0*031471 

0.021398 

C  .  3 

0 . 2059  Lt 

0.168109 

C. 136260 

C. 10724b 

0 • 0838b9 

Q.A 

C  »  3  2  o  1  7  3 

— 0 «  2  b  2^113. 

0.242763 

C.  20636** 

0.  173942 

C  .  5 

0  •  A  3  A  4  1 C 

C.39G9cl 

0.349284 

0.310064 

0 • 2  73  836 

C  .6 

0  •  d2  ?  5 94 

C. 466869 

0.447002 

0. 408806 

0.372374 

_ JLuL. 

C.o 36314 

. 0.669671 

0 . 53  32  76 

C. 497726 

C .  463  72 4 

C.8 

0 . b  7  22  19 

C. 640065 

0. 60 78 18 

0.57602b 

C. 545346 

C  .  9 

C.  / 2 7 1 3 3 

0.699380 

0. 671362 

0. 643664 

0.616560 

l.Q 

L .  7  7-4  7 88 

C. 749Q7A 

0.724047 

-Q  »  7-G-l  1  QJZ  _ 

0*677  775 
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1  IRE 

16 

17 

1  6 

19 

20 

C  .  1 

C.CC0279 

C.C0C122 

C. C00C52 

0.00C022 

0.000010 

L  0  *2. 

C  . Q  14235 

C.CC9292 

0.CC6C13 

0.003991 

0.002991 

0.3 

C.C648C7 

0.0497^7 

0. C3o34i 

0.030504 

0.026323 

C  .  4 

C  .  1 4  5  7  3  6 

0. 121999 

0. 103064 

0. C89441 

0.061936 

0.5 

C  .  2  4  12  C  7 

C.2128D9 

0.169617  0.172540 

0.  163038 

0  .6 

C. 339075 

C. 309620 

C  .  285103 

C. 266881 

0.256670 

0.7 

0.432085 

C. 403791 

0.380028 

0.362248 

C. 352243 

C.8 

0.5165  ?1 

C  .  *t9Q6b  1 

0.468776 

0.452332 

n  A4 

C  .9 

C. 591137 

0.566122 

0.548611 

0. 533911 

0 • 525604 

1.0 

C .655696 

C  .635bc2 

0.618637 

0.605  7 85 

C. 598515 
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AM 

-ANALYTICAL  SOLUTION 

LUNttNTKAT  I  CNS  AT 

OHIO  FLINTS 

T  ti\ 

POINT  GKIC 

7  IME 

1 

2  

3 

5 

C.  1 

C  .422828 

C.2580C9 

0. 13  7  772 

0. C64346 

0.026697 

0.2 

0 . 553431 

C. 456549 

0. 328045 

0. 219383 

0. 136324 

- _ 0.696657 

C.58/5c3 

0. 4  744  74 

0. 36  3  7  50 

0. 2684  o2 

0.4 

C.  /  6  6  7  6  2 

0.679659 

C •  5  8440  7 

C. 486163 

C. 390461 

0.5 

C. 617148 

0. 747254 

C. 668057 

0.5  82  666 

0.494942 

u  C  .  6 

C. 834755 

Q. 756296 

0. 752727 

0.639650 

C.  5622  50 

C  .  7 

G .  8835  lo 

C . 637642 

0. 783433 

C. 721653 

C. 654610 

0  .  6 

0.505861 

C. 868465 

0 • 623668 

0.771948 

C. 714439 

C.9 

C.  32045c 

0.892915 

0.653501 

0.815644 

C. 763899 

1  .€ 

0.937559 

0.912-06 

0.661928 

C • 845858 

0.80430o 

K~~ . . . ... 

TIME 

0.1 

CLNCtN THAT  1UNS  A1  OHIO  POINTS 
6  7  8 

0.003825  0.003244  C.CCU968 

9 

C •  0002  64 

10 

Q. 00QQ74 

0.2 

0.3 

C.4 

C. 076694 
0. 187402 
C.  302365 

C.G42244 
0.124369 
C. 225848 

0. C51155 
0.078790 

0  .  16  364  7 

0.010 055 

0 . 048  76  7 
C. 1 1 78  T9 

0.005171 

0.032864 

0.091427 

C .  5 

C. 409111 

0.329435 

0.260139 

0.  2058  57 

0. 173220 

C  .6 

0.503219 

0.426677 

0. 357269 

C. 500992 

C. 266229 

6- — — . 

0.7 

C  .  5  6  4  2  t  C 

C. 514100 

0  •  4  4  o  b  1  j 

Om  394660 

C.36C715 

C  .  8 

C  •  c  5  3  C  c  { 

C • 590  7  40 

C. 531674 

0.481959 

0.450500 

C  .  9 

0. 711154 

C. 656859 

0 •  604  7  76 

0.560508 

0.532317 

— 

1 .0 

C . 759934 

C. 713^93 

0. 6fc8lo6 

0.629550 

0.604852 
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VALUES 

T  1 RE 

1 

2 

3 

4 

5 

C  .  1 

£  .4uS6  a  6 

C  .  3 9432 

C.  121722 

C.C52762 

C. C19469 

0.2 

C .566309 

C. 446525 

C. 316479 

C.  20  7624 

C. 125567 

C.3 

C. 694369 

0. 582686 

0.467518 

0.357379 

C. 259427 

_ £  .4 

.  C • 76 6562 

C. 677447 

C . 560366 

C. 480581 

C  .  383708 

0.5 

C.dl 7756 

C. 746279 

0.665597 

0.576680 

C. 46994  7 

C  .6 

C. 656432 

C. 797724 

C. 730971 

0.656971 

C. 578347 

C.  7 

c. od^aui 

C.  63  7016 

0. 761637 

0*  719385 

O.o51248 

0.6 

0.905808 

0.867593 

0 . 6  2 1 9C  3 

<1/ .  7694  13 

0.711219 

C  .  9 

C  »  9  2  a.  9  4  A 

0.891551 

0.653768 

0.609655 

C  .  760537 

_ U_C_.._ 

_ C  .  9  3  6  5 1 6 

C. 910657 

0.679863 

C. 0 42674 

0.801118 _ 

TIRl 

C  .  1 
0.2 
£L.3 

6 

0.006113 

0 . 069804 
C.  176397 

7 

0.001639 
0.035606 
j£, 116C42 

6 

0.000375 
0.0 16664 
0.C71573 

. 9. _ _ 

0.000077 
0.C07243 
0. 042772 

10 

0.000013 
C.0G334  7 

C.  02  7849 

0.4 

0.294868 

C. 218052 

0. 155956 

C. 110555 

0.064676 

C .  5 

0  •  40  34. 6  7 

0.322618 

0. 253157 

C .  198660 

0. 166506 

C  .  6 

0.498428 

0 . 42 i 1  be 

0.351348 

0.294914 

C. 260401 

C  .  7 

C  .3801^5 

C . 509428 

0. 443766 

0.389559 

0. 355903 

0 . 8 

C • o4  92  50 

C. 566521 

0. 827238 

0.477567 

0 • 44643 1 

C  •  9 

0  .  7  u  7  3  4  3 

0.652759 

C • 600  36  8 

C. 556453 

0.526646 

1.0 

C  .  7  5  5  8  7  9 

0.709037 

0.663901 

0.625486 

0. 60 1178 
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TIRE 

1 

2 

2 

4 

5 

0.1 

-0.018212 

-0.016577 

-0.016030 

-0.011764 

-0.007228 

0.2 

-C.CG7122 

—  C.C1CC24 

-0. C11566 

-0.011759 

-C. G1G757 

C.3 

—  0.0>v2268 

-0. CC4865 

-0. CC6956 

-0. 0083  71 

-0.009055 

C  .  4 

-C.00C2C0 

-C .  0022 12 

-0.  CC4041 

-0 . C05582 

-C.0C6753 

0.5 

C • 00  0  55  6 

-C. 000960 

-C .  CCzAfcO 

-0.003616 

-Q. QC4995 

C  .  6 

C.0CC63  7 

-0.000572 

-0.001756 

-0.0028  79 

-C. CC3903 

C.  7 

C. 000375 

-C.OC0626 

-0.001596 

-Q.00251O 

-0.003362 

C  .  8 

-C  .  00 C  0 3  3 

-C.C00922 

-C. CC1 765 

-0.002333 

-C. 008220 

C .  9 

-C.0CC548 

-G.0C1364 

-0.002116 

-C.GC2 789 

-C. 003362 

l.C 

-C. 001033 

-C.CC1649 

-G.CC2364 

-0.C03184 

-0. CC3686 

aSSGLIATEG  LRkGKS 


I  IRE 
0.1 

C.2 

C.3 

0.4 

C.3 
C .  6 
0.7 

C.8 

0.9 

l.C 


6  7 
-0.003712  -0. CC16C3 

-C. 0Ct390  -0. 006638 
-Q.0C90C5  -G . GO  o32  7 
-C  .007497  -  C  .  C  C  7  7  9  6 
-0.005944  —0.006617 
-C.CC4791  -C.CC3491 
-C  .  CC4C93  -0 .00  Ao  72 
-C. 002817  -C.CC4219 
-0.003609  -C • C04Q99 
-C.C0a035  -0.004<i35 


a  9  10 

- o. CCC593  - C. 000  i 6 7  - C . 0 0 COG  1 
-Q.C04491  -0.002612  -0.C01824 
-0.CC7217  -0  •  005995  -0.005013 
-Q.CC7b91  -0.007264  -0.006751 
-0  .  CCo962  -C. 007017  -U.00c.714 
-0.005944  -0.006076  -C. 005626 
-0.C05032  -C. 005101  -C. 004612 

-O.COh436  -0.004392  -0.004049 
-C.C04193  -0.004053  -C.0036o9 
-0.CC4265  -0.004064  -0.003674 
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APPENDIX  C 


TWO  DIMENSIONAL  HOMOGENEOUS  CASE 


The  partial  differential  equation  describing  the 


problem  is 


9  c 
9  e 


a 

i 


9  2c 


9  C 

9  z 


9  c 


(R  —  )  . 
9  R 


O  t  z  s  1 
0  4  z  1 

The  boundary  conditions  are: 


(a)  at  z  =  0,  c  =  1 

at  z  =  1,  |f  -  0 

at  R  =  °,  |f  -  0 

at  R  =  1  M  =  0 


(Radial  Symmetry) 

(No  flow  across  the  wall) 


(b)  at  z  =  0, 

at  z  =  1, 

at  R  =  0, 


C  + 
Z+O 


9  c 
9  Z 

9  C 

9  R 


0 

0 


a 


9  c 

9  Z 


z-*o 


at  R  =  1, 


9  C 

9  R 


0. 


Semi  Analytical  Solution  A  thirty  point  grid  has  been  used 
for  this  problem.  Because  of  the  radial  symmetry  only  the 
upper  half  of  the  reactor  has  been  used  for  discretisation. 
The  grid  spacing  is  shown  in  Figure  Ill-d. 

No  analytical  solution  is  available  for  this  type 


of  problem. 
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SOLUTION  OF  THE  DISPERSION  MODEL  EQUAT ION-TWO 
DIMENSIONAL  HOMOGENEOUS  CASE 

INPUT  DATA 

N=  THE  NUMBER  OF  GRID  POINTS. 

NT  =  THE_  TOTAL  NO,  OF  TIMES. 

MAT R I  X=  THE  COEFFICIENT  MATRIX 
C I =  THE  INITIAL  CONDITION  VECTOR. 

C 1 =  THE  BOUNDARY  CONDITION  VECTOR. 

T I M E=  THE  DIMENSIONLESS  TIMES. 

DX=  THE  GRID  SPACING. 

.REAL *8 _  DX,A 

DOUBLE  PRECISION  MATR I X ( 60 , 60 ) , VECTOR ( 60 ,60 ) , 

1 TOLERC , W (60 , 60) , CEVR ( 60, 60 ) , T I  ME ( 6  0)  ,CONC (  15,10) 
DOUBLE  PRECISION  X ( 60 ) , V AR ( 60 ) , C I ( 60 ) , C 1 ( 60 ) 
DOUBLE  PRECISION  0(60 »60 ) » VICTOR! 60t 60  I  ,R(15), 
1SUM ( 15,10) , C  E VR  1  (  1  5 , 10 ) , DEV( 15,10) ,DEVP( 15,10) 

C  READ  THE  DATA 

READ (  5,1)  N, NT 

RE AD ( 5 , 5 )  {  (MATRIXt  I, J)  ,  J  =  1 ,  N  )  ,  I = 1 , N ) 

RE AD (  5,2  )  ( C I ( J )  ,  J - 1 , N ) 

READ (  5,2  )  (C1(J)  ,J  =  1,N) 

RE  AD ( 5 , 3  )  (TIME(J),  J=1,NT) 

RE  AD ( 5 , 4  )  DX 
DO  99  J= 1 , NT 

READ (5,12)  ( CONC ( J , K ) , K= 1 , 5 ) 

99  CONTINUE 
R ( 1)=0.C 

RE AD ( 5 , 6 )  (R(  I)  ,1=2,6) 

N0RM=2 

TO  L  E  R  C = 0 .000 
WR I TE ( 6 , 223  ) 

L  I  N  E  S=  9 

CALL  LINECT (LINES, 4, 2) 

WRI TE(6,253)  DX 
WR I T  E ( 6 , 220 ) 

LINES  =9 

CALL  LINECT (LINES, 4, 2) 

_  WRITE (6, 224) 

WR I TE ( 6, 223  ) 

WRI TE ( 6,233) 

CALL  LINECT  (LINES  »J^,  2 ) 

WR ITE( 6,234)  (Cl ( J) ,J=1,N) 

CALL  LINECT(LINES,4,2) 

WRITE(6,223) 

WR I TE ( 6 , 235 ) 

CALL  L INECT ( LINES, 2, 2) 

_ _ DO  30  J=1  ,N 

30  C 1 ( J ) =C 1 ( J ) / ( DX ♦♦ 2 ) 

WRI T E ( 6 , 234 )  ( C 1 ( J ) , J= 1 » N  ) 

DO  36  J  =  1 ,  N 
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DO  36  K=1,N 

MATRIX ( J , K) =MATR1X( J ,K)/ !DX**2 ) 

36  CONTINUE 

WRITE(6,220) 

WRITE ( 6,  240 ) 

CALL  L INECT ( LINES  ,4,2) 

DO  31  J=  1 , 1 5 

WRITE (6, 241) (MATRIX! J,K) , K=1,N) 

31  CONTINUE 

WRI TE ( 6,  220 ) 

DO  62  J=  16 , 3C  _ 

WR  I  TE  (  6 , 241  )  !  MATR  I  X (  J  *  K )  ,  K-  1 » N  ) 

62  CONTINUE 

_  CALL  TRANS(N,DX,D, MATRIX) 

WRITE(6,255) 

CALL  LINECT (LINES» 1*2) 

WRITE (6, 241 )  (  D  (  J  »  J  )  »  J= 1 , N ) 

CALL  LINECT ( L I N E S  t  4 »  2 ) 

WRITE(6, 220) 

WRITE! 6, 261 ) 

DO  50  J= 1 » 1 5 

WRITE! 6, 241)  (MATR I X(J»K) ,K=1,N) 

50  CONTINUE 

WRI TE ( 6f  220 ) 

DO  63  J=16,30 

WRI TE (6, 241 )  ( MATRIX! J,K) ,K=1 ,N) 

63  CONTINUE 

CALL  J AC06I ! N, MATR I  X,  VEC TOR , TOL EKC , NORM ) 
WRI TE ( fet  220 ) 

L I NE  S-9 

CALL  LINECTILINESt 6,2) 

WR I T  E ( 6 , 242 ) 

WRITE! 6, 232)  ( MAT RI X ( J , J ) , J= 1 ,N ) 

CALL  LINECT! LINES, 3,2) 

WRITE (6, 223) 

WRITE (6,243) 

DO  32  K= 1 , N 

CALL  LINECT! LINES, 7,2) 

WRITE (6, 232)  (VECTOR(K,J) ,J=1,N) 

32  WRITEI6,223) 

_ CALL  CHECK! VECTOR, MATR IX, N,W) 

CALL  L  I  NECT { L  I NES ,1,2) 

WRITE(6,223) 

WRI TE (6,244) 

DO  33  J= 1 , N 

CALL  LINECT(LINES,7,2> 

WRITE(6,232)  (W(J,K), K=1 , N ) 

33  WRITE (6, 223) 

CALCULATE  THE  TRANSPOSE  OF  THE  MATRIX  OF 
THE  EIGENVECTORS 
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DO  40  I  =  I »  N 
DO  40  J~ 1 >  N 

VICTOR ( I , J) =VECT0R( J, I ) 

40  CONTINUE 
A=ID(-1 ) *A(*)*D) 

A ( * ) =THE  ORIGINAL  COEFFICIENT  MATRIX 

D=T HE  DIAGONAL  MATRIX  USED  FOR  THE  CONVERSION 

OF  MATRIX  { A ( ^ ) )  TO  THE  SYMMETRIC  FORM 

A=  THE  SYMMETRIC  MATRIX  DERIVED  FROM  THE  ORIGINAL 

COEFFICIENT  MATRIX  A ( * ) 

Q=  THE  MATRIX  OF  EIGENVECTORS  OF  A 
CALCULATE  THE  EIGENVECTORS  OF  THE  ORIGINAL 
COEFFICIENT  MATRIX 
DO  3  8  I  =  1 » N 
DO  38  J= 1 » N 

VECTOR ( I , J) =D( I f I  I ^VECTOR (  I  ,  J) 

38  CONTINUE 
WRITE! 6»220) 

L I NES=9 

CALL  LINECT (LINES»6»2) 

WRITEI6, 256) 

WR I TE ( 6 1  232 )  ( MATR I  X ( J , J )  , J  =  I  tN i 

CALL  LINECT(LINES,3,2) 

WRITE (6, 223) 
wRITE(6f257) 

DO  39  K=1,N 

CALL  LINECT(LINES,7,2) 

WR I TE ( 6 »  232 )  ( VECTOR ( K, J ),  J  =  1 , N ) 

39  WRITE(6,223) 

( D*Q )(-!)=  Q { -1 )*D(-1) =QT *D { - 1 ) 

QT=  THE  TRANSPOSE  OF  THE  MATRIX  OF  EIGENVECTORS  OF  A 
D(-1)=THE  INVERSE  OF  MATRIX  D  AS  DEFINED  PREVIOUSLY 
CALCULATE  THE  PRODUCT  (QT*D*1) 

DO  41  I=1,N 

_ DO  41  J=1,N  _ 

VICTOR (I t  J ) =  V  I C  TORI  I , J)/0( J,  J) 

41  CONTINUE 

CALL  SEMIAN(N»VAR»VECTOR»CI » C I , MAT  R I  X , T I  ME , NT , 

1CEVR , VICTOR ) 

WRITE(6,220) 

WR I T E ( 6 »  225 ) 

WR I TE( 6 »  245 ) 

WRI TE ( 6  t  223 ) 

WRITEI6, 246) 

WRITE(6, 248) 

DO  34  J= I f  NT 

34  WR I TE ( 6  »  251 )  TIME(J)*  (CEVR ( J  >K) >  K= 1 >  5 ) 

WRITE (6, 223) 

WR I TE ( 6 1  246 ) 

WR I TE ( 6 »  249 )  _ 
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35 

DO  35  J=1,NT 
..RITE(6, 251) 

TIME(J),  (CEVRC J,K) ,K=6,10  ) 

WRITEI6, 223) 
WRI TE( 6,246) 

WR  I  TE  (  6,  259 ) 

45 

DO  45  J= 1 , NT 
WRITE(6*251) 

WR I T  E { 6 , 220 ) 

TIME(J),  (CEVR(J,K) ,K=11,15 ) 

WRITE (6, 246) 

WR I TE ( 6 , 260 ) 

00  46  J=.l ,  NT 

46 

WRITE(6,25l) 
WRI TE ( 6, 223 ) 
WRI TE (6, 246) 

TIME(J),  (CEVRI J,K) ,K=16,20i 

60 

WRITE(6,265) 

DO  60  J=  1 , NT 
WRITE(6,25i) 

TIME! !  J)  ,  { CEVR ( J , K ) ,K=21,25) 

WRITE(6, 223) 

WRITEI6, 246) 

_  .WRITE (6, 266) 

61 

DO  61  J=  1 , NT 
WRITE! 6, 251  ) 
SUM  1 =0 .0 

TIME! J) ,  ( C  E  V  R ( J , K ) ,K=26,30) 

9 

DO  9  1=1,6 

SUM  1  =SUM  1  +R  (  I  ) 
CONTINUE 

DO  8  J=1 , NT 
DO  8  K  = 1 , 5 


_  S  U  M  (  J  ,  K )  =  R  (  1  )*C£VR(  J , K ) +R ( 2 ) *C EVR !  J,K*5) 

1+R<3)*CEVR( J ,K+10) +R(4)*CEVR< J  ,K+15) 
2+R{5)*CEVR< J,K+20) +R(6)*CEVR< J,K+25) 
CEVR1 ( J,K)=SUM( J ,K)/SUM1 
8  CONTINUE 
DO  10  J  =  1  »  NT 

_ DO  10  K=l,5 _ 

DEV (  J  ,  K  ) =  C  E  V R 1 ( J  , K ) -CONC ( J , K  ) 

10  CONTINUE 
A= 1 0  n  .  C 

DO  16  K=  1 , 5 
DEVP( 1,K)=0.0 

_  16  CONTINUE 

DO  11  J  =  2 ,  N  T 
DO  11  K=  1  »  5 

DEVP(J,K)=IDEV(J,K)/CEVR1(J,K))*A 

11  CONTINUE 

WR I TE ( 6 , 220 ) 

_ WR I T  E ( 6 , 270 ) 

WRITE (6, 223) 

WRITE(6,248) 

DO  7  J= 1 , NT 


r  -  *  l  I 


tlLHMIT 


l  I  ,  I  i  =  /■  ,  i;  ,t  )  W  i  J)  ?  (  L  >  "  ‘  I  T 


r  .  I  t  l  I  v  (  (  l.  )  i 


(ics.  ) ;  f  i 
it  ♦  ' )  n  M  . 
; 

.  )  I  * 

■ 

•  . 

i  t  )  T  '  - 

,  )  D  T  I  . 

l  ,  •  •  >  •  f 


ee 


u  ♦  $ ,  >  t  i  < 


♦  i  »  hv  j)  tit)  l  r 


♦  )  ) 


r  ,  I  V 


(•  Std)3TIfl  . 
Ti  ,  i  =t  Hd  Ot ) 

u  .  )  ■  r i  • 

( e  <  ,  )  f  1  h  . 

(  )  T  I 

id  i  t  (J  )  r  I  A  > 
1  «  1  =  L  id 

«(i  )  -  * :  i  !  s  ,  a )  U  ** 

3.0=  I 'w 
o,i=i  9  na 
(  i  ♦  i  z  r  .a 
3UtfITHO0 

:  t  ;  t  w 

e,  i=*  8  oa 

. 

\ (  ,u  ue- 1 >  ,t )  •  > 

T iM  =  t  Cl  »C 

t  r=  I 

(  i  ,  L  )  -  l  >  ,  t  I  1  V  l  t  l  )  J  11 


Id 
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WRITE<6,251)  TIME(J),  (CONC < J , K ) . K= 1 , 5 ) 

7  CONTINUE 
WRITE(6,223) 

WRITE(6,271 ) 

_ WRITE (6> 243) 

DO  15  J= 1 , NT 

WR I TE ( 6 , 251 )  TIME(J),  { C E VR 1 ( J , K ) , K= 1 , 5 ) 

15  CONTINUE 

WR I TE  t  6 , 220  ) 

WRITE(6»272 ) 

_  WR  I  T  E  (  6  »  22  3  ) 

WRITE (6, 248) 

DO  13  J= 1 f NT 

_  WRITE(6,251)  TIME(J),  ( DE V ( J , K ) , K= 1 , 5 ) 

13  CONTINUE 
WRITE(6,273) 

_  WRITE (6, 223) 

WRITE (6, 248) 

DO  14  J=  1 , NT 

WRITEI6, 251 )  TIME ( J ) ,  (DEVP ( J ,K) ,K=1 , 5) 

14  CONTINUE 

C  FORMAT  STATEMENTS 

1  FORMAT (IX, 214) 

2  FORMAT ( 10F3. 5) 

3  FORMAT { 1 1F7. 3) 

4  FORMAT { lXfF16.8) 

5  FORM  AT ( 1  OF  8 • 5 ) 

6  FORMAT (lXfF13.8»4F14.8) 

12  FORMAT ( 5 F 16 . 6 ) 

220  FORMAT ( 1H2) 

221  FORMAT ( 1H»10X»8H  •  •  CONTD ) 

222  FORMAT ( 1H,// ) 

223  FORMAT ( 1 H ,  /  ) 

224  FORMAT < LH, 18X,28H  CONCENTRATION  PROFILES-TwO-, 
lllHDIMENSIONAL/25X,22HNi)N  HOMOGENEOUS  MEDIUM) 

225  FORMAT ( 1H » 20X » 32HSOLUT ION  OF  THE  DISPERSION  MODEL, 
L8HEQUATION/20X, 19HUSING  ORDINARY  B.C.) 

232  FORMAT ( 1H,1QX,5F11*6) 

233  FORMAT ( 1H,30X,25H  INITIAL  CONDITION  VECTOR) 

234  FORMAT (1H,10X,5F12.4) 

235  FORMAT ( 1H,30X,26H  BOUNDARY  CONDITION  VECTOR) 

240  FORMAT (1H,30X,19H  COEFFICIENT  MATRIX) 

241  FORMATt 1H,5X,10F6. 2) 

242  FORMAT ( 1H,30X, 12H  EIGENVALUES) 

243  FORMAT tlH,30X,13H  EIGENVECTORS) 

244  FORMAT ( 1H ,20X,35H  CHECK  OF  SIMILARITY  TRANSFORMATION) 

245  FORMAT ( 1H,30X,25H  SEMI -ANALYT I  CAL  SOLUTION ) 

246  FO  RM AT ( 1H ,  2 5  X ,  2 9HC0NCENTRATI ON S  AT  GR I D  POINT S ) 

248  FORMATt 1H,15X,  5H  TIME,  5X,  2H  1,  9X,  2H  2,  8X, 

12H  3,  8 X ,  2H  4,  8X,  2H  5) 
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249  FORMAT ( 1H»  1  5X ,  5H  TIME,9Xf2H  6,8X»2H  7*8X,2H  8, 
1 8X  »  2H  9,  8X,  2H1C) 

251  FORMAT ( 1 H »  15X,  F6.1,  2X ,  5F10.6) 

253  FORMAT (  1  H» 10Xf13HGRID  SPACING=»  F1I.6) 

255  FORMAT ( 1H , 1 OX y 9HMATR I X ( D ) / IPX , 

119H( DIAGONAL  ELEMENTS)) 

256  FORMAT { lHf20X» 19H  EIGENVALUES  OF  THE/29X, 
127HORIGINAL  COEFFICIENT  MATRIX) 

257  FORMAT !1H»20X,29H  EIGENVECTORS  OF  THE/20X, 

I 27HORI G I NAL  COEFFICIENT  MATRIX) 

259  F0RMAT(IH,11X»5H  T I  ME , 5X , 2H 1 1 , 9X , 2H1 2 , 8X , 2H 1 3 » 
I8X  »  2 H 1 4 » 8Xy  2  H 1  5 ) 

260  FORMAT ! 1H  » 1 5  X  »  5H  T IME f 9X , 2H16, 8X t 2H1 7 » 8X, 2H18 , 
18X, 2H19, 8X, 2H20 ) 

261  FORMAT! 1 H , 30 X , 2 7H0R I G I N AL  COEFFICIENT  MATRIX/ 
I20X, 26H( CONVERTED  INTO  SYMMETRIC)) 

265  FORMAT (1H»15X,5H  T I  ME , 9X , 2H2 1 , 8X , 2H22 , 8X » 2H23 ♦ 
18X, 2H24, 8X»2H25) 

266  FORMAT! 1H,15X,5H  T  I  ME , 9X , 2H26 , 6X , 2H2 7 , 8X , 2H28  , 
18X»2H29t 8X, 2H30 ) 

270  FORMAT  MHf18X*28H  CONCENTRATION  PROF  I  L  ES-ONE- , 
I1IHDIMENSI ON AL / 25  X  »  2  2H  HOMOGENEOUS  MEDIUM) 

_  271  FORMAT! 1H, IPX, 16Hti El GHTED  AVERAGE/ 

1 lOXf  32HTW0  DIMENSIONAL  HOMOGENEOUS  CASE) 

272  FORMAT ! 1 H y 20 X » 1 8HABS0LUTE  DEVIATION) 

273  FORMATUHf 20X,  17HPERCENT  DEVIATION) 

STOP 

END 
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SUB ROUT INE  TR ANS ( N , DX , D , MATR I  X ) 

THIS  SUBROUT  I  ME  CONVERTS  THE  ORIGINAL  COEFFICIENT 
MATRIX  TO  THE  PEAL  SYMMETRIC  F  )RM  US  I 
SIMILARITY  TRANSFORMATION 
_  INPUT  DATA 

DX  =  THE  GRID  SPACING 

N=  THE  NUMBER  OF  GRID  POINTS 

D=T HE  DIAGONAL  MATRIX  ,  W  ITH  DIAGONAL  ENTER  I ES 
HAVING  ALTERNATE  SIGNS  I.E.  D( I» I)*(-l )*♦( I|(D( I , I ) ) 
USED  FOR  SIMILARITY  TRANSFORMATION 

MATR IX=  THE  ORIGINAL  COEFFICIENT  MATRIX  (DIAGONALLY 
DOMINANT  £  UNS YMM ETR I C ) ,  DESTROYED  DURING 
COMPUTATION  AND  THE  RESULTANT  MATRIX  IS  SYMMETRIC 
AND  DIAGONALLY  DOM AN ANT » 

R E A L * 8  DX, ALPHA, BETA 

DOUBLE  PRECISION  D< 60 ,60 ) , MATRI X ( 60 , 6C ) 

ALPHA=0.2 
B  E  T  A  =  D  X  /  2 . 0 
D< I, 1)  =  1  .0 


CALCULATE  THE  DIAGONAL  ELEMENTS  OF  MATRIX  D. 


DO  no  1=1,4 

11=1+1 

D(  I  I , I  I ) =D(  I ,  I )*DSQRT ( ( ALPHA  +  BETA)/ ( ALPHA-BETA)  ) 

100  CO NTINUE  _ _ 

D( 6,6 )=0. 3535 

DO  101  1-6,9 
11=1+1 

D  {  I  I , I  I ) =D(  1,1) *DSQRT(  ( ALPHA  +  BETA)/( ALPHA-BETA)  ) 

101  CONTINUE 

D( 1 1 , I  1 ) =  ° . 24995 
DO  102  I  =  lit  14 
11=1+1 


D(  I  I  ,  I  I ) =D(  1,1) *DSQRT( ( ALPHA  +  BETA) /( ALPHA -BET A)  ) 
102  CONTINUE 

D( 16, 16) =0.20408 
DO  103  1=16,19 
1 1  =  I  +1 

D(  I  I , I  I ) =D(  I , I ) *DSQRT (  ( ALPHA+BETA) / ( ALPHA-BETA)  ) 
1  "'3  CONTINUE 

D (  2 1 ,21 )=o.  1  7673 
DO  104  1=21,24 


^  11=1+1 

5771,11)  =D(  I  ,  I )  *DS  QRT  (  (  ALPHA  +  BETA  j  /  (  AL  Ph  A  -  T  A  )  ) 
I°4  CONTINUE 
_  D( 26,26)=0. 1  5  8°  7 

iDO  105  1=26,29 

11=1+1 

D (  I  I, I  I )=D(  I , I )*DS QRT ( ( ALPHA+BETA) /( ALPHA -BETA)  ) 
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105  CONTINUE 

_  Pn  106  1=1, 3*, 2 

ou»n«-o(ifii 

106  CONTINUE 

C _ _ _ _ 

CALCULATE  THE  COEFFICIENT  MATRIX  CONVERTED  I NTO 
THE  SYMMETRIC  ONE 


DO  107  1=1, N 
DO  107  J=1,N 

_ MATRIX  (  I  ,  J  )  =  (  M  A  T  R  I  X  (  I  ,  J  )  *D  (  J  ,  J  )  )  /  (  t)  (  I  ,  I  )  ) 

107  CONTINUE 
RFTURN 
END 
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M*  . . . 

HOMOGENEOUS 

MEDIUM 

INITIAL 

CONDITION 

VECTOR 

_ 

0-0 

_ 0.0 

O.C 

O.n 

n  .o 

0.0 

0.0 

0.0 

0.0 

0.0 
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0.0 

O.C 
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O.C 

0.0 

0.0 
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O.n 
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0.0 

0.0 

0.0 

0.0 

BOUNDARY 

CONDITION 

VECTOR 

8.8015 

c.o 

0.0 

0.0 

0.0 

8.8015 

0.0 

0.0 

0.0 

0.0 

8.8015 

0.0 

0.0 

0.0 

0.0 

— 

8 . 80 1 5  

0.0 

0.0 

C ,0 

0 . 0 
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0.0 

0.0 

0.0 

0.0 
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0.0 

0.0 
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COEFFICIENT  MATRIX 


17.66 

-3.30 

0.0 

C.O 

0.0 

-5. 76 

0.0 

0.0 

0.0 

O.o 

0.0 

CL* 

0*0 

0.0 

0.0 

Q .  0 
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C.O 

O.C 

c.c 

Q.r 

0.0 

0.0 
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0.0 

0.0 
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C.O 

0.0 

-5.76 

O.C 
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0 .  0 

0.0 
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0.0 
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0.0 
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0.0 
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-5.76 

0.0 

0.0 
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0.0 
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0.0 
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0.0 

0.0 
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-1.80 

0.0 

0.0 

0.0 
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0.005895 
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0.004578 

0.201  2m 

-0.12  3649 
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SOLUTION  OF  THE  DISPERSION  MODEL EQU AT  I ON 
USING  ORDINARY  li.C. 

SEMI-ANALY1 ICAL  SOLUTION 


CONCENTRATIONS  AT  GRIP 


TIME 

I 

2 

3 

4 

5 

0.0 

0.000000 

0.000000 

0.000000 

0.009Q00 

0.000000 

.  1 

0.528611 

0.  187828 

0. C49082 

0.010054 

Q.  0 C  1 7 6  7 

0.2 

0.  73144  3 

0.419487 

0. 191837 

0.072031 

0.024547 

0.3 

0. 828839 

0.585768 

0. 350377 

0. 179528 

9.086935 

Q  .4 

0.88  3289 

Q.6 987 82 

0.488202 

0- 302780 

9*  1  82271 

0.5 

0. 916891 

0.776617 

0. 598929 

0.421872 

0.293197 

0.6 

0.939042 

0. 831595 

0.685664 

0.527865 

0.404750 

0.7 

0.954339 

0. 871396 

0. 753204 

0.618159 

0.507819 

0.8 

0.965272 

0.900824 

0. 805844 

0.693157 

0.598226 

0.9 

0.973291 

0.922956 

0. 846990 

0. 754488 

0.674943 

1.0 

0 . 979290 

0.939825 

0. 379250 

0.804143 

0.738646 

CONCENTRATIONS  AT 

GRID  POINTS 

TIME 

6 

7 

8 

9 

10 

0.0 

0.000000 

0.000000 

0. 000000 

0 • 000090 

o. 000000 

0.1 

0.  52  861  1 

0. 1 87828 

1. 049082 

0.019054 

0.001767 

0.2 

0.731448 

0.419487 

0. 191837 

0.072031 

0.024547 

0.3 

0. 828839 

0.585768 

0. 350377 

0. 179528 

9.086935 

0.4 

0.883289 

0.698731 

0.488201 

0. 302779 

9. 18227^ 

0.5 

0.916891 

0.  7 7 o 6 1 6 

0.598928 
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0.7 
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9.693154 

0. 598223 
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0.674939 

1.0 

n . 979289 

0.939323 

0.  879247 

0.804140 

0.738642 
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12 
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14 
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0.0 

0.000000 

0.000000 

0.0  00  0  0  c 

C. 000000 
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0.1 

0.323611 

0. 187828 

0.049082 

0.019054 

v'  1  767 

0.2 

0. 731447 

0.419486 

0.  191836 

0.072031 

0.024547 

0.3 

0. 323838 

0. 5857o6 

0.  3503  75 

0.  179527 

0.086934 

l_ Qj 4 

0.383287 

0. 693778 

0.488198  ... 

9.302777 

0. 1 82269 

0.5  0.916388 
0.6  0.939038 
0.7  0.954338 
0.8  0.965268 
0.9  0.973286 
1.0  0.97  92  8 5 


0.776612 
0.831588 
0. 371388 
0. 900815 
0.922946 
0.939814 


0. 598922 
0.685655 
0. 753193 
0. 805832 
0. 846976 
0.879233 


0.421866 
0. 527857 
0.618147 
0.693142 
0. 754471 
C. 8Q4124 


0.293193 
.  4 4743 
9. 507808 
0.598211 
r .674925 
0. 738625 
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CONCENTRATIONS  AT 

GR 10  POINTS 

TIME 

16 

17 

18 

19 

20 

0 . 0 

QaQQQOQO 

0.000000 

1.00  POO 

0.000000 

0. nnonoo 

0 . 1 

0. 528607 

0. 18  !S2 6 

C . 04908 1 

0.010054 

0.001767 

0.2 

0. 731438 

0.419478 

0. 191832 

0.072029 

n. 024547 

0*3,  . 

0.828825 

0. 585751 

0. 359365 

0 . 179521 

p. 086931 

0.4 

0.88  3271 

0.698758 

0.488181 

0. 302765 

0.182261 

0.3 

0.916871 

0. 776587 

0. 593899 

0.421847 

0.2931 79 

0.6 

0.939019 

0.831560 

0.  68  362  6 

0.527831 

0.404722 

0.7 

0.954315 

0.871357 

0. 753159 

0.618115 

r . 507780 

0.8 

0.965247 

0.900782 

0. 805794 

0.693105 

0.598176 

0^3 

0.973265 

Q. 92291 1 

0. 846935 

0*  754479 

0. 5  748  84 

1.0 

0.979263 

0.939778 

0. 879190 

0. 804078 

0. 738578 

CONCENTRATIONS  AT 

GRID  POINTS 

TIME 

21 

22 

23 

24 

25 

Q.jQ 

C. 000000 

O.QOQOQP 

0. OOQOOO 

0.000000 

0. PPOPPP 

0.1 

0. 5286C5 

0.187825 

0. 049081 

0.010054 

C. 00 1767 

0.2 

0* 731434 

0.419475 

0. 191830 

0.072028 

0. 024546 

0.3 

0.828920 

0. 585746 

0. 350361 

0.179518 

C. 086930 

0.4 

0.883265 

0.698751 

0.488175 

0. 302761 

0.182258 

0.3 

0.916364 

0. 775579 

0.  59889  1 

0.421841 

0. 2931 74 

Q.6 

n. 9390 l 2 
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0*68561 7 
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0. 4P4  71  5 

0.7 
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0.871347 

0. 753149 

0.618106 

0.507772 

0.8 

0.965239 

0. 900771 

0. 805782 

0. 693094 
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0.9 

0.973257 

0. 922900 

0.346923 

0. 754417 

0.674873 

1.0 

0.979235 

0.939766 

0. 8791 77 

0. 804065 

0. 738567 
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0.0C1767 
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0.3 

0.82883  7 

0. 5  8  :>  766 

0.350375 

0.  179526 

0.C86934 

0.4 

0. 883287 

0.698778 

0.488198 

0. 302776 

0. 182268 

0.5 

0.916888 

0.776611 

0.598922 

0.421866 

C. 293193 

0.6 

0.939038 

0.831587 

0.685655 

0. 527856 

0.404742 

0.7 

0.954334 

0.871387 

0. 753192 

0 . 618146 

0. 507807 

0.8 

0.965267 

0.900814 

0. 805830 

0.693141 

0.598210 

0.9 

p. 973286 

0.922945 

0. 846974 

0.754469 

0.67  49 2 2 

1.0 

0.979284 

0.939812 

0. 879232 

0.804122 

0. 738622 
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CONCENT  RAT  ION 

PROF ILES-ONE-D  1MENS IONAL 

HOMOGENEOUS  MEDIUM 

TIME 

1 

2 

3 

4 

5 

0.0 

... 

0.0 

0.0 

0.0 

0.  1 

n. 52861 1 

0.  18  7829 

0. 049082 

0.^10054 

C. 001767 

0.2 

0.731448 

0.419487 

0. 191837 

0.072031 

0.024547 

0.? 

C. J23839 

0.585768 

0.350377 

C.  179528 

C. 086935 

0.4 

0.883290 

0.698782 

0. 488202 

0.302780 

r'.  182271 

0.5 

0.916891 

0.776618 

0.598929 

0. 421872 

0.293198 

r  •  6 

0.939042 

595  

0 • 685665 

0. 527866 

0. 404751 

0.7 

0.954340 

0.871397 

0. 753205 

0.618160 

0.507821 

0.8 

0.965273 

0.900825 

805846 

0.693159 

0.598228 

0.9 

C. 973292 

0.922958 

0. 846993 

0.754491 

0.674946 

1.0 

0.979291 

0.939827 

0.879253 

0.804148 

0.738651 

WEIGHTED  AVERAGE 

TwG  DIMENSIONAL 

HOMOGENEOUS  CASE 

—  TIME 

2 

3 

4 

5 

0.0 

0.000000 

0.000000 

0. nooooo 

o.o^nooc 

0.000000 

0.  I 

0.528609 

0.  18  7827 

0. 049082 

0.0  IOC  54 

0.001767 

0.2 

0.731442 

0.419482 

0.191834 

C. 072030 

0.024547 

0.3 

0.828831 

0.585758 

C. 350370 

0. 179523 

0.086933 

0.4 

0.883279 

0.698767 

0.488189 

0. 302770 

0. 182264 

C .  5 

0.916879 

0.776599 

0. 598910 

0.421856 

r . 293 1 85 

0.6 

0.939028 

0. 831573 

0. 685640 

0.527843 

0.404732 

0.7 

0.954324 

0.871372 

0. 753175 

C. 618131 

0.507793 

0.8 

0.965257 

0.900797 

0.805812 

0.693123 

r *598193 

0 . 9 

0.973275 

C. 922927 

0.846954 

0. 754449 

6.674904 

1.0 

0.979273 

0.939795 

0.879211 

0.804100 

0.738601 
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ABSOLUTE  DEVIATION 


;me 

1 

2 

0.0 

C.OOOOOO 

0.000000 

-Q-.1 

-0.000002 

-0 . opnoo? 

0.2 

-C. OC  0006 

-C. 0000^5 

o.3 

—0*000008 

-o.ooooio 

C  •  4 

-o.ceooii 

-0. CO oo 15 

C  .5 

-0.000012 

-0.000019 

C  •  6 

-0.000014 

-0.000022 

0  ,Z_ 

-0.00001 6 

—  0.600026 

0.8 

-C. 000016 

-0.000028 

0.9 

-6.00001 7 

-0.000031 

1.0 

-C. 000018 

-0.000032 

PERCENT  DEVIATION 


3  4 

C.OOOOOO  0.000000 

-0.000000  -0. ooroo^ 

-0.000003  -0.000001 
-0.C0C0O7  -0.000005 

-:.co°oi3  -o^ooonin 

-0. Onnoi 9  -0 . nC0O 16 
-0.000025  -0.000023 
n0...CQCQ30  -0-000029 
-0.000034  -0 • 0000 36 
-0.000039  -0.000042 
-0.000042  -0.000048 


5 

0.000000 

o.ocoooo 

-0. 000000 
-0.000002 
-0.000007 
-0#000013 
-C. 000019 
-  0 . 00  002  d 

-r. nno035 

-C . 690042 
-C • 000050 


TIME  1  234 

0.0  0.0  0.0  0.0  0.0 

0.1  -.0^00448  -0.r  ^0935  -0.  QQQ424  -6.002246 

r; .  2  -0*000756  -0.noi278  -0.001675  -r.r^1952 

0.3  -0. 000998  -0 . 001 706  -0.002079  -0.002609 

_ CL^4 _ -0.001275  -0.002108  -0.00268?  -0.0P?7?a 

0.5  -0.001338  -0.002479  -0.003184  -0.003767 

0.6  -0.001489  -0.002634  -0.003658  -0.064319 

CLmJ  -0.001638  -0.002901  -0.003926  -Q* 004747 

C . 8  -0*001699  -0.0C3080  -0.004263  -0*005226 

0.9  -0.001752  -0.003315  -0.004603  -0.005554 

_ 1.0 .  -0.001801  . -0.003444  -0.004832  -0.006001 
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C .0C4335 
-0.000448 
-0.002532 
--0.Q03589 
-0.004272 
-0.004777 
-0.005476 
-0.005869 
-0.O06296 
-0 . QC6808 


• 

• 

•  1 

• 

I 

• 

• 

• 

■ 

#  - 

• 

• 

• 

• 

• 

_ 

• 

■ 

k  1- 

• 

• 

•  ' 

•  * 

.  - 

• 

_  1 

.  - 

• 

• 

• 

- 

'  0 

• 

• 

• 

• 

• 

-  — 

.0 

• 

• 

.  -  3 

.  I 

•  • 

0 

0*0 

• 

f 

-  i  .  - 

rt  V  .  - 

.  9 

.  -  50. 

\  .  - 

N  ,  .  - 

.  - 

6.0 

.  - 

.  - 

D  .  - 

t>„0 

.  -  i  *' 

-  t  .  - 

- 

. 

• 

.  - 

- 

.  - 

.  - 

.  - 

1  .  - 

. 

.  - 

.  - 

d  f  .  - 

.  -  . 

-  .  ~ 

.  - 

1  \  1 

- 

~  . 

. 

CONCENTRAT  ION  PROF  I L E S- T  WO-D  I  MENS  IONA L 


HOMOGENEOUS 

MEDIUM 

IN  IT IAL 

CONDITION 

VECTOR 

0.0 

0.0 

q, a 

O.n 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

. 0.0 

0.0 

0.0  . 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

BOUNDARY 

CONDITION 

VECTOR 

4.1905 

0 . 0 

0.0 

0.0 

-  0.0 

. 

4.1905 

0.0 

0.0 

0.0 

0.0 

4.1905 

0.0 

0.0 

0.0 

0.0 

4 . 1 905 

0 .0 

0.0 

0.0 

o.n 

4.1905 

C.O 

0.0 

0.0 

o.a 

4.1905 

0.0 

0.0 

0.0 

0.0 

t  ;  <ru  it  . 
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COfcFFIC I  ENT  MATRIX 


13.25 

O.C 

©•O 

-8.80 

-3.30 

0.0 

0.0 

0.0 

0.0 

0*0 

0.0 

0*0 

-5.76 
0.  0 
0.0 
0.0 
_  O.Q 

0.0 

0.0 

0.0 

-5.76 

Q.O 

0.0 

0*0 

0.0 
0.  Q 

0.0 
q  .  ci 

0.0 

I  7 . 8b 
— Q,_Q— 

C.O 

-3.30 

Q.O 

0 . 0 
o.o 

C.O 

0.0 

0.0 

—O.o 

r  .  0 
0.0 
CL,  £ 

0.  ) 
0.0 
0.0 

~'.r' 
0.0 
n .  o 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

'.0 

0.0 

0.0 

0.0 

0.0 

-8.80 

17.86 

-3.30 

0.0 

0.0 

0.0 

-5.7b 

o.o 

0.0 

O.C 

0.0 

0 . 0 

0,0 

0.0 

0.0 

0.0 

.0 

0*0 

O.C 

o.o 

C.O 

0.0 

0.0 

0.0 

0.0 

C.O 

0.0 

".C 

0.0 

0.0 

-8.80 

17.06 

-3.30 

0.0 

0.0 

0.0 

-5.  76 

0.0 

— 

.Q ,  Q 

0.0 

0.0 

0.0 

-  0.0 

O.JL 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

O.o 

0.0 

0.0 

0.0 

0.0 

0.0 

O.C 

0.0 

0.0 

-8.80 

14.56 

0.0 

0.0 

0.0 

0.0 

-5.76 

0.0 
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SOLUTION  OF  THE  DISPERSION  MODEL E QUAT I  ON 
USING  DANCKWERTS  8.C. 

SEMI-ANALYTICAL  SOLUTION 


CONCENTRATIONS  AT  GRID  PGIN LS 


TIME 

1 

2 

3 

4 

5 

0.0 

0.000000 

0.000000 

-0.000000 

-0.009009 

-0.000000 

0.1 

0.307153 

0. 103866 

0. 026350 

0*  °0 5 2.94 
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0.48Q113 
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CONG  ENTRAT 

IONS  AT 

GRID  POINTS 

TIME 

16 

17 

18 

19 

20 

0.0 

0.000000 

0. 00n000 

-0.090000 

-0.090000 

-0. OPOOQQ 

0.1 

0.305691 

0. 103108 

0. 026114 

0.005241 

0.000908 

0.2 

0.483856 

0.258310 

0. 112726 

0.04^873 

0.013561 

0.3 

n . 6°2  399 

'  ♦  3964  7  6 

0. 224250 

0.109997 

0.951433 

0.4 

0.687215 

0.508770 

9.335779 

0. 198538 

0. 114898 

0.5 

0. 750584 

0.599093 

9.437474 

0.293526 

0. 195846 

0.6 

0. 799293 

0.671885 

0.526635 

0. 386711 

0. 284995 

0.7 

0. 837494 

0.  73  0897 

0. 603394 

0.473627 

0.374678 
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0.86  7910 

0. 779048 

0.668877 

C. 552220 

0.460329 

Cl,  9 

0.892412 

9.818571 

9. 724468 

0.621 864 

0.539148 

1.0 

0.912334 

0.851177 

0.771529 

0.632735 

0.6C9921 

COimCENTRAT  IONS  AT 

GRID  POINTS 

TIME 

21 
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0.0  

0.000000 
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CONCENTRATIONS  AT 
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1.0  0.908907  0.845942  0.764803  0.675079  0.601865 
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APPENDIX  Cl 


TWO  DIMENSIONAL  NON-HOMOGENEOUS  CASE 


(a)  Dd  and  u  both  function  of  the  radial  position 
K. 


6  (R) 


2  (dP/dT) 
8  +  15  R6 


u(R)  =  f  (R) 


The  partial  differential  equation  describing  the  above  prob¬ 


lem  is: 


8  c 
8  e 


=  a 


8  2c 

3z2 


-  n(R) 


8  c 
8  z 


8  R 


(R  B(R) 


8  c 
8  R 


,  Point  velocity 

where  (R)  -  Average  velocity 


u  (R) 


u 


av 


The  boundary  conditions  are: 


(i) 


(ii) 


at  z  =  0,  c  =  1 
.  8  c 

at  z  =  1,  r—  - 


at  R  =  0, 


8  C 

8  R 


0 


at  R  =  1/  ~  °* 


at  z  =  0, 


cz+o+ 


-  a 


at  z  =  1/ 
at  R  =  0, 


8  c 
8  z 

8  c 
8  R 


0 

0 


at  R  —  1 / 


8  c 
8  R 


8  c 
8  z 


z-*o+ 


0 


-  Cl, 2 


Semi  Analytical  Solution  A  thirty  point  grid  was  used  to 
evaluate  the  concentration  profile  at  various  times.  The 
grid  spacing  is  as  shown  in  Figure  Ill-d. 

(b)  One  Dr  a  function  of  radial  position  and  the  velocity 
is  the  overal  average  velocity. 


The  partial  differential  equation  describing  this  model  is 


a  c 

a  e 


a 


3  2c 

3  z2 


9  c  -L  y  3  fD  R  (  D  \  3  c  \ 

3Z  +  R  3R  (R  6  (R)  3R  1 


The  boundary  conditions  are  the  same  as  in  case 
(a)  and  the  grid  spacing  is  also  given  by  Figure  Ill-d. 
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C 
C 
C 
C 


SOLUTION  OF  THE  DISPERSION  MODEL  EQUATION-TWO 
DIMENSIONAL  HOMOGENEOUS  case 

INPUT  DAT  4 

N=  THE  NUMBER  OF  GRID  POINTS. 

NT  =  THE  TOTAL  NO.  OF  TI MES . 


C 

c 

c 

c 


MATR I X=  THE  COEFFICIENT  MATRIX 
C I =  THE  INITIAL  CONDITION  VECTOR. 
Cl=  THE  BOUNDARY  CONDITION  VECTOR. 
TIME3  THE  DIMENSIONLESS  TIMES. 

DX  =  THE  GRID  SPACING. 

-BEAi*8  QX,  A 


DOUBLE  PRECISION  MATR  I X ( bJ , 60 ) , VECTOR ( 60 , 60 )  , 
1T0LERC ,W (60 ,60) ,CEVR ( 6C , 60 ) , TI ME (60)  tCUNC (15,10) 
DOUBLE  PRECISION  X ( 60 ) , V AK ( 60  ) , Cl ( 60 ) , C L ( 60 ) 


DOUBLE  PRECISION  0(60,60) , V  I C  TOR ( 60 , 60 )  ,R(15), 

I  SUM ( 15 , 10) ,CEVR1( 15, 10) , DEV( 15 , 10) ,DEVP( 15,10) 
_ READ  THE  DATA  _ 

READ!  5,1)  N , NT 

RE  AD ( 5 , 5 )  (  ( M  A T K I  X (  I , J  )  »  J  =  1  ,  N  )  ,  I = 1 , N ) 

R  E  A  D (  5,2  )  (Cl ( JJ »  J  =  1 ,N) 

READ (  5,2  )  (Cl( J)  ,J  =  1  ,N) 

RE AD ( 5 , 3 )  (TIME(J),  J-1,NT) 

READ(  5,  A)  DX 


DO  99  J=1,NT 

RE AD ( 5 , 1 2 )  ( CONC ( J , K ) ,K=1,5) 
99  CONTINUE 
R.  (  1  )  =0.0 


RE  AD (5, 6  ) 
NORM=  2 


(R( I) ,1=2,6) 


TOLERC=O.DOO 
WRIT 5(6, 223  ) 

L I NE  S=9 

CALL  LINECT (LINES, 4, 2) 
WR I TE ( 6 »  2 53 )  DX 
WRITE(6,220)  


LINES  =9 

CALL  LINECT (LINES, 4, 2) 
WR I T  E ( o,  224) 
WRITE(6,223) 

WRITE (6,233 ) 

CALL  LINECT (LINES, 2,2) 


WRITE! 6, 234)  ( C I ( J )  ,  J  =  1 »  N ) 

CALL  LINECT (LINES, 4, 2) 
WRITE(6,223) 

WRITE (6,235 ) 

CALL  L  INECT( LINES, 2, 2) 

DO  30  J=1,N  _ 


3^  C 1  ( J ) =C 1 (J)/ (DX**2) 

WR  I  T  E ( 6 , 234 )  (C1(J),J-1»N) 

DO  36  J=1,N 


J  ,xc  b  V 
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DO  36  K=1,N 

MATRl X  I J , K  )j=MATR  l  X  (  J  T  K  )  /  I  0  X  *  *  2  ) 

36  CONTINUE 

WPI TE( 6, 2?r  > 

x _ WP  ITEf  6.  743  ) _ _ _ 

CALL  L INECT ( LINES ,4 ,2) 

DO  31  J  =  1 ,  1  5 

WR I  TEC  6, 241  )  (MATR IX(J.K) ,K=1.NI 
31  CONTINUE 

WPITE(6,220) 

^ _ DO  62  J=  1  6 ,  3  r _ 

WRITE (6, 241) (MATRIX! J,K) ,K=1,N) 

62  CONTINUE 

CALL  TRANS (N ,DX,D, MATRIX  ) 

WRITE(6,255) 

CALL  LINECTI LINES , 1,2) 

I _  WR ITE ( 6  t  24j  ) _ I  D  I  J  ,  J  ) , J  = I >  N  ) _ 

CALL  LINECTI L INES, 4, 2) 

WRITE(6,220 

WRITE(6,261) 

DO  59  J  =  1  ,  l  5 

WRI TE ( 6, 241  )  ( MATR I  X ( J , K )  ,  K=1 ,N ) 

ft  50  CONTINUE  _ _ _ 

WRI TEI6, 22r  ) 

DO  63  J=  1 6 , 3  0 

WRITE  (6,  241)  (MATR  I  X{  J,K)  ,  K=1  i 

63  CONTINUE 

CALL  JACOBI  IN, MATRIX,  VECTOR , TOLERC, NORM ) 

L _ WR I TE I  6 , 22 ° ) _ _ _ 

L  I  N  E  S  =  9 

CALL  LINECTI LINES, 6, 2) 

L  WRITE (6, 242) 

WRITE  1 6,23  2  )  (  N  1/  T  R I  x  (  J  ,  J  )  ,  J  =  1  ,  N  ) 

CALL  LINECTI LINES, 3, 2) 
ft.  WRITE! 6, 223) _ 

WRITE! o,243  ) 

DO  32  K= 1 , N 

CALL  LIN EC T (LINES, 7, 2) 

WRITE (  6,232 )  I  V EC T ( i R ( K , J )  , J= 1 , N ) 

72  WRITE(6,223) 

I _ CALL  CHECK!  VECTOR  ,  MATR  IX,  N,W) _ 

CALL  L  I  NEC  1 1 L I N ES , 1 , 2 ) 

WRI TE ( 6, 223  ) 

WRITE (6,244) 

DO  3  3  J  =  1  ,  N 

CALL  L I NECT (LINES, 7,2) 

ft _ WRITE!6,232)  (W(J  ,  K  )  ,  X=  1 ,  N  ) _ 

33  WRITE(6,223) 

CALCULATE  THE  TRANSPOSE  OF  THE  MATRIX  OF 
WLl  THE  EIGENVECTORS  _ _ 


JUMl  SjAiaiLSH _ 
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— 


DO  40  1=1 ,N 
DO  40  J=1,N 

VI  CTO  ft  (  I  ,  J  )  =  VEC  Tf  R  (  J  ,  I  ) 

40  CONTINUE 

A=(P(-1  )*A(  *)*(:) _ 

A ( * ) =T  HE  ORIGINAL  COEFFICIENT  MATRIX 

D=T  HE  DIAGONAL  MATRIX  USED  FOR  THE  CONVERSION 

OF  MATRIX  (AO)  )  IQ  THE  SYMMETRIC  FORM 

A=THE  SYMMETRIC  MATRIX  DERIVED  FROM  THE  ORIGINAL 

COEFFICIENT  MATRIX  A(  *) 

Q=THE  MATRIX  OF  EIGENVECTORS  OF  A _ 

CALCULATE  THE  EIGENVECTORS  OF  THE  ORIGINAL 
COEFFICIENT  MATRIX 
DO  38  I?i»N 
DO  38  J=l, 

VECTOR { I , J)  =  D(  I  ,  I  ) *V ECTOR { I , J) 

MjteagTgMus? ,  > _ o  . _ 

WRI TE l 6 »  220 ) 

LINE  S=9 

CALL  L INECT( L INL'S,o, 2) 

WRITE(6,256) 

WRITE (6, 23?)  (NATRIX(J,J),J=1,N) 

CALL  L I NECT (LINES* 3,2) _ 

WR I TE( 6 »  223 ) 

WRITE(6,257) 

DO  39  K=l,N 

CALL  L INECT ( LINES* 7,2) 

WR  1  T  E  (  6 , 23?  )  ( VECTOR( K, J)  ,J  =  1 ,N) 

39  WftITE(6,223) _ 

(  D  =4- Q  )  (  -1  )=  Q  (-1  )*D<-1  )=QT*D<-1  ) 

QT  =  THE  TRANSPOSE  OF  THE  MATRIX  OF  EIGENVECTORS  OF  A 
D ( - 1  )  =  T H E  INVERSE  OF  MATRIX  D  AS  DEFINE!  PREVIOUSLY 
CALCULATE  THE  PRODUCT  ( Q T * D • 1 ) 

DO  41  1=1, N 

DO  41  J=1 ,N _ 

VICTOR!  I ,J)  =  VICTOR( 1 ,J)/0(J,J) 

41  CONTINUE 

CALL  SEMI  AN  (  NtVAR,  VECTOR  ,C1,CI  ,  MAT  R  I X  ,  T  I  ME  ,  NT  , 

ICE VR, VICTOR ) 

WR I TE ( 6  »  220 ) 

1  WRITE!  6,225  ) _ _ 

WRI TE( 6, 248 ) 

WRITE(6,223) 

WRITE! 6,246) 

WRI TE (6, 248) 

DO  34  J=  I  »  NT 

34  WR I TE ( 6 i 251 )  TIME(J),  ( C E VR ( J » K )  , K= 1 , 5  ) _ 

WR I TE( 6, 223 ) 

WRITE (6,246) 

WR  I T  E  ( 6  »  2 4 9 )  , 
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35 

DO  35  J  = 1 »  N T 
WR  I  TE (6, 251  ) 
WRITE  16,223) 
WRI TE (6,246) 
WRITE (6, 259) 

TIME! J), 

(CEVR ( J , K) ,K=6 , 10  ) 

DO  45  J= 1 , NT 

45 

WP I TE ( 6 , 251 ) 

TIME! J) , 

( C  E  VR ( J , K )  , K= 1 1 ,  15) 

WRITE(6,220) 

WRITE(6,246) 
WR  I  T  E  (  6 , 2  60  ) 
DO  46  J=1,MT 


46 

wRI TE ( 6, 251  ) 
WR  I  T  E  (  6 , 22  3  ) 
WRITE! 6,246) 

TIME ( J  )  , 

( CE VR ( J  ,  K  )  , 

K= 1 6 , 20  ) 

6n 

WRITE(6,265) 
DO  60  J=  1 , NT 
wR  I  T E  (  6 , 25  1  ) 

TIME! J), 

(CEVR! J.K) 

,K=21 , 25) 

WRI T E ( 6 , 2 2  3  ) 
WRI TE (6, 246) 
WRITE(6,266) 

61 

DO  61  J  =  1  , NT 
WRITE(6,251 ) 

TIME! J)  , 

(CEVR( J,K) 

, K  =  2  6 , 30  ) 

SUM  1 =0 . 0 

DO  9  1=1,6 
SUM  1 =SUM  1+R (  I  ) 


9  CONTINUE 
DO  8  J= 1 , NT 
DO  8  K  =  1 , 5 

SUM(J,K)-R(1  )*CEVR(J,K)+R(2)*CEVR!  J  ,  K+5 ) 

l+R(3)*CEVR(J,K+in)+R!4)*CEVP(J,K+15) 

2  +  R  (5)  *CEVR(  J  ,  K+2n  )  +  R(6  )*CEVR  (  J  ,K+25) 

CEVR 1 !  J  ,  K  )  =  S  U  M  (  J  »  K  ) /  SUM 1 
8  CONTINUE 
DO  IT  J  — 1 , N T 

DO  10  K= 1 «  5 _ 

DEV(J,K)=CEVR1(J,K)-C0NC(J,K) 

10  CONTINUE 
A- 100 » 0 

DC  16  K  =  1 , 5 
DE  VP ( 1 , K ) =0 . 0 
16  CONTINUE  _ 

DO  11  J  =  2  » NT 
DO  11  K=  1 , 5 

Q  E  V  P  (  J  ,  K  )=(DEV(J»K)/CEVR1(J»K)  )  *  A 

11  CONTINUE 
WRITE! 6,229) 

WRITE(6,27Q) _ _  _ 

WRITE(6,223) 

WR I T  E ( 6 , 248 ) 

DO  7  J=1 , NT 
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WRITE(6»251  )  T I M E ( J  )  ,  ( CONC ( J , K )  , K=  1 , 5 ) 

7  CONTINUE 
WRITE  16*223) 

WRI TE<6, 271  ) 

WR I  T  E ( 6 , 24 8 ) _ 

DO  lb  J  =  1  ,  N  T 

WR I TE ( 6 , 25 1 )  T  I M  E  (  J  )  »  (CEVR  1  ( J , K)  ,K=1 , 5 ) 
15  CONTINUE 

WRITE! 6,220 ) 

WRI TE ( 6,272 ) 

wRITE(  6,223  ) _ 

WR I TE ( 6  »  248 ) 

DO  13  J= 1 ,  NT 

WRI TE ( 6» 2S1 )  TIME (  j  )  ,  (DEV( J*K) ,K=1,5) 

13  CONTINUE 
WRITE(6,273) 

WRITE (6, 223) _ 

WRITE (6 ,243 ) 

DO  14  J= 1 , NT 

WRIT  !  ,251)  TIME(J),  CDEVP ( J  >K ) t  K-l  t  5) 

14  CONTINUE 


FORMAT  STATEMENTS 

FORMAT ( IX, 214) _ 

2  FORMAT  I 1CF  3. 5 ) 

3  FORMAT ( 1 1F7. 3) 

FORMAT < 1X,F16.8 ) 

FORMAT ( 1 0  F  8 • 5) 

6  FORMAT ( IX, FI 3.8,4F14.8) 

12  FORMAT ( 5F16. 6) 


22^  FORMAT ( 1H2 ) 

221  FORMAT ( 1H, 10X, 8H  ..CQNTD) 

2 2 7  FORMAT (lHr//) 

2  '■  3  FORMAT  (  1H,  /  ) 

224  FORMAT ( 1H, 18X,28H  CONCENTRATION  PROF  I L ES-T WO- , 

111HDIMENSI0NAL/25X,  22H  HOMOGENEOUS  MEDIUM) _ 

225  FORMAT ( 1H , 20 X , 32HSOLUT I  ON  OF  THE  DISPERSION  MODEL, 


18HEQUATIQN/20X, 19HUSING  ORDINARY  B • C . ) 

_  232  FORMAT ( 1H,1QX,5F11 *6 ) 

233  FORMA T ( 1 H , 30 X ,2 5 H  INITIAL  CONDITION  VECTOR) 

234  FORMAT ( 1H, 10X,5F12.4) 

j.  ?  3  5  FORMAT  (  1H,  30X,26H  BOUNDARY  CONDITION  VtCTUR) 

24n  FORMAT ( 1H, 30X , 19H  COEFFICIENT  MATRIX) 

241  FORMAT ( 1H,5X, 10F6. 2) 

r“Jj!42  •  1AT  { 1H,  30X,  12H  EIGENVALUES) 

243  FORMAT (lH,39X,13h  FIGENVE  S) 

244  FORMAT ( 1H, 20X,35H  CHECK  OF  SIMILARITY  TRANSFORMATION) 

245  FORMAT  (  1H,30X,25H  SEMI  -  ANALYTICAL  SOLUTION) _ 

246  FORMAT  <1H»25X ,29HC0NCENTRATI ONS  AT  GRID  POINTS) 

248  FORMAT ( 1H, 1 5X ,  5H  TIME,  5X ,  2H  1,  9X,  2H  2,  8X, 

12H  3,  8 X ,  2H  4,  8X,  2H  5) 


.  ft.) 
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249  FORMAT { 1H, 1 5X ,  5 H  TIME,9X,2H  6,8X,2H  7,8X»2H  3, 

_ I8X.t2.Fl . 9t  8X »  2H1C  ) 

251  FORMAT ( lHt  15X#  F6.lt  2X  ,  5F 10.6 ) 

253  FORMAT ( 1H» 10X» 13HGRI0  SPACING=,  F11.6) 

1(‘  255  FQRMAT(lH.10X.QHy.ATK  I  X  (  D  )  /  1  0  a  . _ 

119H(0I AGONAL  ELEMENTS) ) 

256  FORMAT ( 1 H , 2 0  X , 1 9 H  E I Gt  M VALUES  OF  THE / 2 OX » 

U.  1  2 7H ORIGINAL  Q  E1CIENT  MATRIX! 

257  FORMAT ( PN,20X>,20H  EIGENVECTORS  QF  THE/2 rX» 

1 27HORI GI NAL  COEFFICIENT  MATRIX) 

r  •  2.5_9_£QR.MAI(  1H  ,  1  5X  ,  5H  T I  ME  ,  5X , 2H1 1 , 9X , 2H12 . sX . 2Hli . 
18X, 2H14, 8X, 2H15 ) 

26C  FORMAT (1H, 15 X,5H  T I  ME , 9X , 2H 1 6 , 8X , 2H1 7 , 8X , 2HI 3 , 

_ j.  Z&1.9.  i,SXs.2M  2C  l 

261  FORMAT ( 1H» 30X*27HG - IG I  HAL  COEFFICIENT  MATRIX/ 
120X ,26H( CONVERTED  INTO  SYMMETRIC) ) 

L _ 265  F0RMAT(1H,15X,5H  T  I  ME ,  >X ,  202  1  , dX , 2H22 , b a , 2H2 3 , 

1 8X  »  2H24 i 8X, 2H25 ) 

2  66  FORMAT (1H»15X»5H  T I  ME  ,  9X , 2H26 , 8X , 2H27 , 8X , 2H28 , 

_ ....  1.&/U2 02.9 ,  8 X.,  2H3? ) _ _ 

’7n  FORMAT ( 1 H > 1 8X ♦ 2 8H  CONCENTRATION  PROF I L ES-0N6- ♦ 

1 1 1H0 IMENSI0NAL/25X»22H  HOMOGENEOUS  MEDIUM) 

L  271  FORMAT! lHUOXt  lOhWEICHTLD  AVlRAGl/ _ 

1 10X »  32HTW0  DIMENSIONAL  HOMOGENEOUS  CASE) 

27?  FORMAT ( 1H» 2 0X,18H ABSOLUTE  DEVIATION) 

_ 2.73  „  Fuk M  A I2L P..ERC  E.N.I  DE.yi.AII.QNi 

STOP 

END 
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c 

SUB ROUT  I NE  TRANS ( N, DX, D, MATRIX i 

THIS  SUBROUTINE  CONVERTS  THE  ORIGINAL  COEFFICIENT 

c 

c 

c 

MATRIX  TO  THE  REAL  SYMMETRIC  FORM  USING 

SIMILARITY  TRANSFORMATION 

INPUT  DATA 

c 

c 

c 

DX=  THE  GRID  SPACING 

N=  THE  NUMBER  OF  GRID  POINTS 

D=  THE  DIAGONAL  MATRIX  • WITH  DIAGONAL  ENTERIES 

c 

c 

c 

HAVING  ALTERNATE  SIGNS  I.E.  D(  I  ,  I  )  =  (-1  )  **(  I  MD  (  1  ,  I  )  1 
USED  FOR  SIMILARITY  TRANSFORMATION 

MA TR I X=  THE  ORIGINAL  COEFFICIENT  MATRIX  (DIAGONALLY 

c 

c 

c 

DOMINANT  £  UN S YMM E TR I C  )  ,  DESTROYED  DURING 

COMPUTATION  AND  THE  RESULTANT  MATRIX  IS  SYMMETRIC 

AND  DIAGONALLY  DOMANANT. 

REALMS  OX, ALPHA, BETA, A1,A2, A3 

DOUBLE  PRECISION  D ( 60 , 60 ) , MATR I X ( 60 , 60 ) 

AL  PH A=0 • 2 

C 

BET  A  =  DX/2 .0 

D( 1,1 )=1 .0 

C 

r 

CALCULATE  THE  DIAGONAL  ELEMENTS  OF  MATRIX  D. 

L 

DO  100  1=1,4 

100 

11=1+1 

D( I I , I I )=D{ I , I )*DSQRT( ( ALPHA+BET A) /( ALPHA-BETA) ) 
CONTINUE 

A 1  =  2 • 0 

D<6,6)=1.0/<  2.0*DSQRT(  AD) 

DO  101  1=6,9 

101 

11=1+1 

D<  I I , I I )=D(  I , I ) *DSQRT ( ( ALPHA +BETA)/<  ALPHA-BETA)  ) 
CONTINUE 

D  (  11,11) =0.25 

DO  102  1=11,14 

11=1+1 

102 

D<  I I ,  I  1 ) =D(  I  , I ) *DSQRT (  ( ALPHA  +  BET  A) / ( ALPHA -BET A)  ) 
CONTINUE 

A2  =  6 . 0 

D  (  16, 16)=1.0/(2.0*DSQRT( A2)  ) 

DO  103  1=16,19 

11=1+1 

103 

Dili  , I  I ) =D(  I , I )*DSQRT(  ( ALPHA  +  BET A) /( ALPHA-BETA)  ) 
CONTINUE 

D(21,21)=1.0/(4.0*DSQRT( A1 ) ) 

DO  n4  1=21,24 

11=1+1 

D (  I I . I I )=D(  I ,I)*DSQRT((ALPHA  +  BETA)/( ALPHA-BETA)  ) _ 

1°4 

CONTINUE 

A3= 10. 0 

D(  26,26  1=1 .0/<2.0*DSQRT< A3) ) _ 
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11=1+1 

D (  I  I  »  I  I  ) =  D(  I t I ) *DSQRT (  { ALPHA  +6ETA) / ( ALPHA -BET A)  ) 

105  CONTINUE 

DO  106  L=  1 13 0,2 

0(1,1 )  =-D(  I ,  I) 

106  CONTINUE 

CALCULATE  THE  COEFFICIENT  MATRIX  CONVERTED  INTO 
THE  SYMMETRIC  ONE 


DO  107  1=1, N 
DO  107  J  =  1 ,  N 

MATRIX ( I , J ) = ( MATRIX! I,J)*D(J,J))/(D(I,I)) 
107  CONTINUE 
RETURN 
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-9 . 922829 
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-0.290261 
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-9.1 7°  "59 

0. 146810 

A  .  377934 

9. 352679 

-0.473568 

9.417528 

9.  135439 
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9.52863 2 

0.29125? 

-9.071 349 

9. 199465 

-0.278536 

9. 131454 

-9.23979? 

9.25434° 
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*".  338395 

-0. 1 83398 
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-0.901  7  0  A. 
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0. 033212 

-0.156653 

9.9 4531 1 

o. 016930 

-0 .025050 

9. 143583 

-0.168008 

0.  r'5557r 

^ . p292  1  2 

-0.137038 

-0.043257 

-0.213214 

. C. 007789 

9 . 099559 

9 .123802 

0.967321 

0. 13^649 

-9.003653 

r . 005490 

-0. 227677 

-9. 182793 

9.098985 

-0.279191 

-9. 159200 

-0.074751 

0.151789 
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SOLUTION  IF  THE  DISPERSION  MODEL EQUAT I QN 
USING  ORDINARY  6.C. 

JL _ _ S  :  -ANALYTIC 'L  SOLUTION 


C  NCt:  NT  RATIONS  AT  38  ID  POINTS 


T  IMF 

1 

2 

3 

4 

5 

0.0 

0. 00"  ^  ">0 

0 . 9  9  ~i  o  0  0 

0 .  9009 90 

" .  S3000  jo 

-0.000000 

1 _  n  •  1 

" . 5286^4 

0.  187825 

0.  "49081 

0.O01767 

9.2 

9 . 731426 

0.41  >46  5 

A.  191824 

"  .  "  7  2  '  2  5 

r • 024543 

9.3 

9. 82  88"3 

n. 585721 

A. 350340 

0.  179  5A4 

9.066911 

9.4 

9.  18  3242 

A. 69871 1 

0.483136 

A. 3° 2  72  7 

0.  18  220  5 

r  .  5 

9.915835 

n. 776528 

0. 598834 

"'.  421783 

0. 293073 

9.6 

0.93  3980 

°. 82 1499 

0.685544 

9.527739 

0.404557 

n .  7 

A. 954273 

.  r  i  ’  8  A 

0. 753062 

0 . 617996 

0. 507556 

9  .  8 

9. 9652 n3 

0. 900698 

0. 805684 

0.692960 

0.597896 

A.9 

r .  97  32  19 

’"'•92  2823 

0. 846815 

C. 754262 

0 .674554 

1  .9 

A. 97  92 1 6 

''.939685 

0. 8  79A61 

r. 803892 

A. 738295 

C  j  1  IS  AT  GRID  POINT S 


— 

TIME 

• 

9.1 

6 

r . or  0000 
9. 52  8578 

7 

9.999000 
9.  18  7812 

8 

0.000000 

9.  "499  7  7 

9 

9.009O00 
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10 
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r .091767 

9.2 
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9.419429 

0.191806 
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9.024541 

0.3 
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0. 179488 

0. 086994 

9.4 
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0 . 488096 

9.392794 
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A  .  5 

A. 91 6776 

0. 7  75467 

9. 598789 

0.421756 

9.293061 

9.6 
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9.831428 
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0.7 

9.954212 

9.871217 

9. 75301 5 
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9.8 

9. 965142 
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3. 895636 

9.692933 

" .  59  7o9 5 

0.9 

9.973158 

9. 922769 

9. 846767 

0 . 754236 

0.674557 

I  .9 

9. 9791 55 
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9 . 89  3  36  7 
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CONCENTRATIONS  AT  GRID  POINTS 
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0. 1 
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0.18 784 1 
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0.010 >55 

0.001767 

9.2 

A. 731 594 

9.419535 

9. 191 863 

0 . ] T2 341 

".924551 

9.3 

9. 82891  6 

9. 585851 

9. 35043 7 

C .179561 

0.086952 

0.4 

9. 88 3379 

9.693893 

9.488296 

0. 392843 

r . L82309 

0.5 

9.916999 

0. 776750 

0. 599952 

9.421967 

0. 293264 

9.6 

0. 9391 47 

0. 831743 

0.685812 

".527940 

0.494845 

9.7 

O. 954449 

9. 871556 

0. 753372 

0.618309 

.30 7940 

9.8 

"  .  96  53  85 

9. 909993 

9. 8009?8 

‘  .  393  •  2  7 

0 .598368 

9.9 

0 .973497 

9.923131 

9.847185 

0. 754675 

0.675103 

1.9 
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r. 949nr 5 
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0.894342 
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CONCENTRATIONS  AT 
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TIME 

16 

17 

18 

19 

20 

— . — — * — — 

r\  r\ 

• 

9.066^ 

6  .  Pn6ppn 

0 . opoq^O 

0 .000 0  ) 0 

-0. 000900 

9.1 

n. 528625 

0. 187836 

' . 049^84 

0.010054 

0.9 r  176  7 

0.2 

o. 731477 

0.419511 

n. 191850 

0.072036 

0.024549 

— 

9.3 

0.823877 

°.  5  858r  8 

0 . 3504^6 

0. 179543 

n . C  86943 

n.4 

n. 883333 

0 .653834 

0. 488245 

6.  302868 

9.182288 

9 .  5 

6. 916939 

9.  776678 

0. 598983 

n.421912 

0. 293226 

-  .  0.6  . 

o . 9 39091 

0.831661 

0.685727 

9.527916 

9 . 4  9  4  7  8  9 

0.7 

9. 871466 

0. 753273 

".618217 

n. 597865 

0.8 

r' .  9  6  5  3  2  4 

0. 9^C896 

0. 805917 

0. 69322C 

0. 598276 

— 

9.9 

0.973344 

0.923029 

0 • 847065 

C . 754554 

0.674996 

tpvmmmn . ~~~~~ 

1.0 

6. 979343 

r'.  9  393  9  8 

0. 879325 

0.804219 

0. 73  86  99 

CONCENTRATIONS  AT 

GRID  POINTS 

TIME 

21 

22 

23 

24 

25 

0.9 

6 . 0  9  6  o  o  6 

0. p°iono 

0.000000 

■"  .  nOOQ^r 

-0. 000000 

9.  1 

r. 523575 

0. 187810 

0. "490  7  7 

0.010053 

0.9"1767 

0.2 

0.  731371 

6.419420 

0  .  1 9 1 8  C  0 

0.672016 

0.024542 

r 

n.  8  287  32 
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0 . 350292 

0 . 1 79479 

0. 086909 

0.4 

0. 883162 

n. 6^3621 

0 . 488064 

0.302683 

6.182207 

0.5 

".9! 6749 

0.776422 

9. 598741 

" .421  721 

0.293081 

0.6 

n. 938838 

0.831372 

0. 685433 

". 527661 

0.494574 

0.7 

0 . 9841 78 

9.871152 

0. 752937 

0.617904 

9.567582 

0.8 

0 . 9651 04 

0. 900563 

0. 805546 

r  .692856 

0. 597930 

0.9 

".973118 

0.922681 

" . 846566 

9.754148 

6.674594 

1  .0 

0.9791 13 

".93  9539 

0.8789^4 

9 .803768 

9. 738250 
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TIME 
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30 

0.6 

6 . 009000 

0. OOQOOO 

• .  •'  3C  0  0 0 

-0. 000000 

9.1 

6. 523669 

0,1*  7 827 

0.  04 9 0 • 
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0. OC 1767 

6.2 

f .  731442 
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9.191833 
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",  624544 

6.3 

6. 8288R9 

9. 585754 

9. 359366 

6. 1 7«519 

6.086919 

6.4 

".883274 

9.698758 

0.488179 

6.362757 

0. 182225 

9.5 

9 .916872 

6.776585 

" • 59889 1 

6. 421829 

6.293108 

9.6 

r . 939919 

9.831553 

0.68561  1 

6.527797 

0.404605 

9.7 

(  . *  5 4314 

9. 671346 

6. 753135 

0.618062 

".5C7613 

6.8 

9.965244 

0. 990767 

6. 805769 

0.693031 

0.597959 

9.9 

f . 973261 

6.922892 

6 . 846892 

0. 754334 

".674617 

L.C  0.979258  0.939755  0.879138  .  "3962  0.738267 
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CONCENT RAT  ION  PROF  I L ES-GNE-D I  MENS  I ON A L 
HOMOGENEOUS  MEDIUM 

TIME 

r  .0 

I 

r  .o 

2 

O.o 

3 

0.0 

4 

0.0 

5 

o.O 

0.1 

0.52  861  1 

0.  187829 

0. 049082 

0.O1CC54 

O.0C1767 

0.2 

o. 731448 

419487 

0. 191837 

0.072031 

0. 0?4547 

0  •  3 

r . 828839 

9*58576 8 

0*350377 

0 . 179528 

0 . 086935 

0.4 

o .  88  3290 

0 . 5  9 8782 

3.488202 

0. 302 78 0 

0» 182271 

0.5 

o .916891 

0. 776618 

0. 598929 

0. 421872 

0.293198 

0.6 

~ . 9  3  99  42 

o.83l595 

0 . 685665 

0 . 527366 

0.404751 

0.7 

o  .95434''' 

0.871397 

0. 753205 

0.618160 

0. 507821 

o.8 

o.965?7^ 

0.  9^0825 

0. 8^5846 

0.693159 

0.598228 

1 . n ..  . 

'.973792 

'"'.922958 

0 . 846993 

0 . 754491 

0.674946 

1  .r 

0.979291 

0. 939827 

0.879253 

0.804148 

0. 738651 

WFIGHTED  AVERAGE 

TWO  DIMENSIONAL  HOMOGENEOUS  CASE 

TIME  1  2 

3 

4 

5 

n  ^ 

• 

ft  mofl  ~t •”) 

.  n  r  -)  2  r  0 

"■  .  <"*90009 

0 . 0 0 09 O' 0 

-0. OOOOOO 

0.1 

0.528605 

0.18 7326 

0. 049081 

0.010054 

0.001767 

0.2 

n. 731 435 

0.419475 

0.191830 

0.072028 

•".024545 

0.3 

C. 823819 

0. 585745 

0. 350360 

0.  179  51  7 

0 . 086925 

o.4 

o . 883265 

0.698748 

0.488172 

0.302756 

r . 182242 

0.5 

0.916862 

0.776574 

0. 598885 

0.421831 

0 . 293142 

0.6 

0.939010 

0.831544 

0 . 685606 

0.527805 

" . 404662 

o.7 

o . 954305 

0.871338 

0.753134 

0.618078 

0. 507695 

1 

0.965235 

0.909760 

0. 805762 

0.693055 

0.598065 

0.9 

0.973253 

0.922887 

0. 84o897 

0.754367 

0.674748 

I  .0 

r. 979250 

0. 939751 

0. 8  7914  7 

0 .804095 

0. 738419 
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•0.000024 
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0.000104 
•r  .oor  124 
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•O.  000002 
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APPENDIX  D 

ONE  DIMENSIONAL  NON- HOMOGENEOUS  CASE 


The  partial  differential  equation  describing  the 
above  problem  is: 


9_c 
9  e 


=  a  Jr  (Dt  (z)  %%  )  -  »f 

9  Z 


9  Z 


9  z 


The  boundary  conditions  are: 


(a)  at  z  =  0,  c  =  1 

at  z  =  1,  5-§  -  0 

9  2 


(b)  at  z  =  0,  c.  (6)  =  a  c  -  a(D,  (z)  *-£  ) 


in 


z+o 


9  z 


z->-o" 


The  following  values  of  the  parametes  were  used 


a  =  0.3 


Dl(z)  =  0.5  (1 . 0  +  z ) 


Semi  Analytical  Solution  A  ten  point  and  a  twenty  point  grid 
&re  used  for  solving  the  above  problem.  0  $  z  ^  1 .  The  grid 
spacing  used  is  shown  in  the  Figure  Ill-f. 

Interpolated  Values  The  results  of  the  ten  point  grid  are 
derived  from  those  of  the  twenty  point  grid  using  Legrangian 
Interpolation  formula. 


' 
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Deviation5  (Errors)  The  accuracy  of  the  solution  can  be 
checked  to  some  extent  from  the  deviations  between  the 

interpolated  value  and  the  value  given  by  the  semi  analytical 
solution. 

ie  Deviation  =  Interpolated  Value  -  The  value  given  by  semi 

analytical  solution. 


ooooooooiooooooooooo 
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SOLUTION  OF  THE  DISPERSION  MODEL  EQUAT ION-GNE 
DIMENSIONAL  NON-HQ MOGFNFOUS  CASE 

INPUT  DATA 

N-  THE  NUMBER  OF  GRID  POINTS. 

_  N I  =  THE  TOT  A L  NO.  OF  TIMES . _ 

MATRIX-THE  COEFFICIENT  MATRIX 

X=  THE  DIMENSIONLESS  DISTANCES  OF  GRID  POINTS. 

_ MSJIME  IN  I  T  I ALJQOND I  T  I  ON  VECTOR. 

Cl=  THE  BOUNDARY  CONDITION  VECTOR. 

TIME-  THE  DIMENSIONLESS  TIMES. 

_ OX-  THE  GRID  SPACING.  _ _ 

ASSUMED  DATA 

LINEAR  RELATIONSHIP  OF  D  VS  Z  D=0.5(1.0+Z) 
D~  AXIAL  DISPERSION  COEFFICIENT. 

Z=  DIMENSIONLESS  LENGTH. 

AL  PH A=  l.Q/(U*L)  AND  IS  ASSUMED  AS  0.3 
U-  VELOCITY  OF  THE  FLOWING  FLU  I D . 

L=  REACTOR  LENGTH. 

BET  A=  GRID  SPACING/2.0  =0.04762 
DOUBLE  PRECISION  MATR  IX ( 20 , 20  ) , VECTOR ( 2C , 20) , 
1T0LERC fW (20 ,20) , CE VR ! 20 , 20 ) , T I  ME ( 20 ) 

DOUBLE  PRECISION  X ( 20 ) , V AR ( 20 ) , C I ( 20 ) , C 1 ( 20 ) 

_ DOUBLE  PRECISION  PJ  Z(U2D  ) ,  VICTOR!  20 , 20  i 

READ!  5  » 1 )  N , NT 

READ! 3, 5)  ! ! MATRIX! I,J) ,J=1,N) ,I-1,N) 

„RE AD (  3,2  ) .  ! X ( J )  ,J  =  1,N) 

READ!  5,2  )  ( C I ( J  )  ,J  =  1  ,N) 

READ!  5,2  )  t Cl ! J ) , J  =  1 , N  ) 

READ (5,3)  (TIME(J)t  J=1,NT)  _ 

READ! 5,6  )  (  ( 0 ! I , J )  ,J=I,N) ,1  =  1, N) 

RE  AD ( 5 , 4 )  DX 
N0RM=2 

TOL  ERC=  C  .  D°° 

WRITE!6,222) 

L INE  S=9 _ 

CALL  LINECT !LINES,4,2) 

WR I TE ! 6 , 2  52  ) 

WRITE! 6, 201)  N , NT 
WR I TE ! 6 , 223 ) 

LINES=9 

CAL L  L  I NECT ! L I N E S , 4 , 2 1 
WRITE(6,253)  DX 
WRI TE ! 6 , 220 ) 

LINES  =9 

CALL  LINECT (LINES, 4, 2) 

WRITE! 6,224) 

WRI TE ( 6, 223 ) 

WRI TE! 6, 231 ) 

CALL  L INECT ( LINES ,  1 ,2) 

WRITE(6,232)  ( X ( J ) , J-1,N)  _ 
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CALL  LINECT (  L  I  N  ES  »  4 , 2  ) 

_ _ WRITE(6,223) 

WRITE(6,233) 

CALL  L I NECT ( L INES , 2 , 2 ) 

, _ WRITE  (  6t  234) _ JCI( J).J=1  ,N) _ _ 

CALL  LINECT(LINES,4,2) 

WRITE(6,223) 

WRITE(6»235) 

CALL  LINECT (LI NES, 2,2) 

00  30  J=1,N 

30  Cl( J)=C1 ( J) /(DX**2) _ _ 

WR I TE ( 6 , 234 )  ( C 1 ( J )  ,  J=1,N) 

CALL  LINECT !LINES»4,2) 

WRITE<6,223) 

WR I T  E ( 6  *  240 ) 

DO  35  J=  1 » N 

_ DO  35  K- 1 ,  N _ 

MATRIX! J,K)=MATRIX(J,K)/ !DX**2  ) 

35  CONTINUE 

L. _ DO  31  J=l,N 

CALL  LINECT ( L I NES  » 1 »  2 ) 

31  WRITE (6, 241) (MATRIX! J,K) ,K=1,N) 

- _ CALL  JACQBIjLN_,MATRIX^  VECI CR,T QLERC , NORM) 

WRITE(6,22Q) 

LINES  =9 

CALL  L I NECT !  L  INES , 3 , 2 ) 

WRITE!6,223) 

WRITE(6, 242) 

„ _ CALL  LINECT! LINES. 2. 2) 

WRITE (6, 232)  (MATRIX(J»J) , J-l »N ) 

CALL  L  I  NECT ( L  INES  »  3 , 2 ) 

WRITE(6,223) _ 

WRI TE(6,243) 

DO  32  K=1,N 

L _ CALL  LINECT(LINES,3,2) _ 

WRITE! 6,232)  (VECTOR(K,J) ,J=1,N) 

32  WR I TE ( 6, 223 ) 

_  CALL  CHECK! VECTOR, MATRIX, N,W) 

WRITE(6,220) 

L I NE  S  =  9 

_ CALL  LINECT (L I NES, 1,2) _ 

WRI TE ( 6 , 244 ) 

DO  33  J=  1 , N 

_ CALL  LINECT (LINES, 3,2) 

WRITE (6, 232  I  ! W ( J  ,  K ) , K= 1 , N ) 

33  WRI TE ( 6, 223  ) 

1  WRITE!  6, 220) _ _ 

L I NE  S=  1 0 

CALL  LINECT (LINES, 4, 2) 
m  WRI TE ( 6 , 255) 
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DO  37  J=1,N 

_ CALL . LINECT!  LINES,  1,2)  __ _ 

WR I TE { 6 , 241 )  ( D( J ,K)  , K=1 , N) 

37  WRITE(6,223) 

C _ CALCULATE  THE  TRANSPOSE  OF  THE  MATRIX  GF 

C  THE  EIGENVECTORS 

DO  40  1=1, N 

_ DO  40  J  =  1 ,  N _ _ 

VICTOR! I , J) =VECTGR( J, I ) 

40  CONTINUE 

_ WR I TE ( 6 , 220 ) _ _ _ 

L I NE  S=  9 

CALL  LINECT!LINES,3,2) 

_  WRITE!  6, 223  )  ______ 

WRITE(6,253) 

DO  42  K=  1 »  N 

CALL  LINECT(LINES,3,2)  _  _  _ 

WRITE (6, 232)  ( VICTOR! K,J) ,J=1,N) 

42  WRITE(6,223) 

A  =  <  D ! —  1 )*A(*)*D) 

A(*)=THE  ORIGINAL  COEFFICIENT  MATRIX 
D=  T HE  DIAGONAL  MATRIX  USED  FOR  THE  CONVERSION 

OF  MATRIX  (A!*))  TO  THE  SYMMETRIC  FORM _ 

A=  THE  SYMMETRIC  MATRIX  DERIVED  FROM  THE  ORIGINAL 
COEFFICIENT  MATRIX  A!*) 

_Q  =  THE  MATRIX  OF  EIGENVECTORS  OF  A 

CALCULATE  THE  EIGENVECTORS  OF  THE  ORIGINAL 
COEFFICIENT  MATRIX 

DO  38  1  =  1, N  _ _ 

DO  3  3  J= 1 » N 

VECTOR (  I  ,  J)  =  D(  I ,  I ) -VECTOR! I , J) 

38  CONTINUE _ 

WRITE! 6«  220 ) 

L I NES=  9 

CALL  LINECT(LINES,3,2) _ 

WRIT E(6, 223) 

WR  I  T  E  !  6 , 2  36  ) 

_ CALL  LINECT (LINES, 2, 2) 

WRITE(6,232)  ( MATR I  X ( J , J ) , J= 1 , N ) 

CALL  LINECT (LINES, 3,2) 

WRITE(6,223) _ _ _ 

WRITE(6,257) 

DO  39  K=  1  »  N 
CALL  LINECT (LINES, 3, 2) 

WRITE! 6# 232 1  (VECTOR(K,J)  ,J  =  1,N) 

39  WRITE(6,223) 

_ !  D*Q  )  (  - 1  )=_ _ Q  (  - 1 )  *P (  -  1  )=QT *PC  -  1  ) 

QT=THE  TRANSPOSE  OF  THE  MATRIX  OF  EIGENVECTORS  OF  A 
D( -1 ) =THE  INVERSE  OF  MATRIX  D  AS  DEFINED  PREVIOUSLY 
CALCULATE  THE  PRODUCT  !QT*D*1) 
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00  41  1  =  1  ,N 

_ 00  41  J=1,N 

VICTOR (I , J)=VICTOR(I ,J)/D( J,  J) 

41  CONTINUE 

_ C  ALL  SEMI  AN(  N,  VAR,  VEC  TOR  ,  Cl,  C  I  ,MAT _R_I  X  ,  T  I  HE  ,  NT  , 

1CEVR, VICTOR) 

W  R  I  T  E  (  6  »  2  2  0  ) 

_ WRITE (6,225) _ 

WRITE(6»245) 

WRITE ( 6, 223 ) 

_ WRI  TE  (  6, 246  ) _ _ _ __ 

WRITE! 6,248) 

DO  34  J= 1 , NT 

_  34_  WRITE!  6, 2 51JL  T  I  ME  (  J  )  ,  (CEVR(J,K)  ,K=l,5) 

WRITE(6,223> 

WR I TE ( 6 , 246 ) 

_ WRITEi  6,249) _ _ _  _ 

DO  36  J=  1 , NT 

36  WRITE ( 6, 251 )  TIME(J),  ( CE VR ( J , K )  , K  =  6 , 10  ) 

JC _  FORMAT  STATEMENTS 

1  FORMAT (IX, 214) 

2  FORMAT ( 10F8. 5) 

3  F  OR MAT (11F7.3) _ 

4  FORMAT ( 1X,F16.8 ) 

5  FORMAT ( 10F8. 6) 

\ . 6  FORMAT ( 5F16. 8) 

2  >r  1  FORMAT  ( 1H  » 10  X  «  3H  N=»  I  3 , 10X  ,  3HNT=  ,  13) 

220  FORM AT ( 1 H2 ) 

■  221  FORMAT (1H,10X,8H  . .CONTD ) _ 

222  FORMAT ( 1H, // ) 

223  FORMAT ( 1H, / ) 

_ 224  FORMAT  (  1H,  13X, 23H  CONCENTRATION  PRGFILES-ONE 

111HD I MENSIONAL/25X , 22HN0N  HOMOGENEOUS  MEDIUM) 

225  FORMAT ( 1H,20X, 32HS0LUT ION  OF  THE  DISPERSION  MODEL, 

I  1 8HEQUAT I 0N/20X , 2 1 HUS  I  NO  DANCKWERTS  B.C.) _ 

231  FORMAT! 1H, 30X, 12H  GRID  POINTS) 

232  FORMAT (1H,10X,5F11.6) 

233  FORMAT ( 1H, 3CX,25H  INITIAL  CONDITION  VECTOR) 

234  FORMAT ( 1H,10X,5F12.4) 

235  FORMAT (1H,30X,26H  BOUNDARY  CONDITION  VECTOR) 

_  240  FORMAT ( 1 H , 30 X  ,  1 9H  COE  FFIC I  ENT  MATR IX ) 

241  FORMAT ( 1H, 10X, 10F5. 1 ) 

242  FORMAT ( 1H,30X» 12H  EIGENVALUES) 

243  FORMAT ( 1 H , 3  0  X  » 1 3  H  EIGENVECTORS) 

244  FORMAT ( 1H,20X,35H  CHECK  OF  SIMILARITY  TRANSFORMATION) 

245  FORMAT ( 1H,30X,25H  S EM  I - AN AL Y T I C AL  SOLUTION) 

[  246  FORM AT ( 1 H ,25 X , 29 HCONC EN T R A T IONS  A T  GK I D  PQ  INTS ) 

248  FORMAT ( 1H,1 5X,  5H  TIME,  5X ,  2H  1,  9X,  2H  2,  8X, 

12H  3,  8X ,  2H  4,  8X,  2H  5) 

249  FORMAT ( 1H, 1 5X,  5H  TIME,9X,2H  6,8X,2H  7,8X,2H  8, 
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_ 251  FORMAT ( 1 H »  15X,  F6.1,  2X,  5F10.6) 

252  FORMAT ( 1H, 5X , 12HGRID  POINTS  , 2X, I 5HNUMBER  OF  TIMES) 

253  FORMAT ( 1H, 10X ? 13HGRI D  SPACING=,  F11.6) 

255  FORMAT ( 1H« 10X«9HMATR IX ( D )  ) _ 

256  FORMAT ( 1H,20X  ,  19H  EIGENVALUES  OF  THE/2QX, 
127HORIGINAL  COEFFICIENT  MATRIX) 

257  FORMAT ( 1H,20X,20H  EIGENVECTORS  OF  THE/20X. 
127HORIGINAL  COEFFICIENT  MATRIX) 

258  FORMAT ( 1 H , 20 X , 2 6HTRA NS  POSE  OF  THE  MATRIX  OF, 

_ 112HEIGENVECT0RS) _ 

STOP 

END 


t 


nihS  ,X8  ,v  MS  t X8 1 

i  '  %>  » i .  »  :  •  ,  :  i  r  < 

t  •  »  -1  •  I  t 

tXOi,HJ  > TAMPON  £?£ 

l  (  )  XI  ^  4  1-  ,  x  ,  HI  /  •  ■ 

I  ... 

I  /  1  '17  A  T  HHI  31  r-  3  J  ki  I  0  I  .VS  I 

\  c  '!  .  3ti  !  .A  .  )  1  X  lH 
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(r  ';OU3V^  3  0  i  th  11 


CONCENTRAT I  3N  PROF  I LES-ONE-O IMENS IONAL 

non  homogeneous  medium 


GRID  POINTS 

0.09524^  r> «  2  3  5  7  2  C  0.360960  ^.476200 

'•57144"  0.65668"  ".  761920  0,857160  0.96240r- 


initial  condition  vector 

0.0  0,0  O.o  O.o  0.0 

L _ iaO _ 0_s_0 _ 0^0 _ 0^0 _ OsO 


BOUNDARY  CONDITION  VECTOh 

0.0  0.0  0.0 

o.n  0.0  0.0  0.0 


COEFFICIENT  matrix 


36.2 

18.2 

0.  o 

0.0 

0.0 

0.0 

0.0 

±0 

3*0 

18.2 

39.4 

19.8 

0.0 

0.0 

0.0 

0.0 

0.0 

. 

3*0 

0.0 

19.8 

42 . 5 

21.4 

0.0 

0.0 

0.0 

3.0 

0.0 

0.0 

O.o 

0.  " 

21.4 

45 . 7 

23.0 

0.0 

0.0 

0.0 

o.o 

0.0 

0.0 

0.0 

0.0 

23.  ^ 

43.8 

24.6 

0.0 

0.0 

0.0 

0.0 

o.o 

0.0 

0.0 

0.0 

24.6 

52.0 

26.3 

0.0 

0.0 

O.O 

0.0 

o.O 

0 . 0 

O.o 

o.o 

26.3 

55.1 

2  7.9 

0.0 

0.0 

0.0 

0.0 

o.o 

27.9 

5  8.3 

29 . 5 

-  0.0 

0.0 

0 . 0 

o.  o 

O.o 

0.0 

0.0 

0.0 

29.5 

61.4 

31.1 

0.0 

o.r 

o.c 

• 

c 

• 

c 

0.0 

0.0 

0.0 

31.1 

36.7 

22.5739 

O.o 


•A 


. 


« ^  c .9  ^ • 

. 


.>  r.  o. 


e  LG  EM  VALUES 


2. 1  1  576'" 
90*068 0 5 7 

107.125319 
14*34370 4 

*483325 
51 . 509352 

3  7.969877 
76.824725 

64. 555529 
25. 165926 

. n,0981/'a 

EIGENVECTORS 

"  .  00 1312  -0. 74487"} 

=5 . 493090 

C  .  146843 

- ' . 33  7634 
0*461548 

-0. nZ 940n 

0.373393 

-".452995 

-".184289 

-0.087184 

0 .00  7  •'77 
-0 . 449938 

0.401077 

-0.381131 

-0.9^7428 

0 .327689 

-0.51 1071 
-0.281072 

— 

0.256951 
-0. 196^67 

0.022  566 
0.226489 

-0.441923 

0. 182087 

0.455799 
"  .  465t>79 

-0.349817 
-". 221696 

-0. 31.45  37 

— XL*  06 1 5 3 4 

.0.373101 

-0 . 453^  93 

0.112371 

-0.355395 

o. 117740 

".428518 

0.475125 

0.439420 

0.355789 

-0.502245 

C. 14314" 
-C. 370599 

-0. 223858 
-0.060869 

-0.405880 

0 .199953 

0.417216 
-0. 185048 

-0. 38"222 
-0 . 5n  82  5  5 

0.281087 

0.408492 

0. 035764 
-0. 4072 39 

0.228381 

-0.227246 

0. 161268 
-0.233190 

0. 3  8  74  84 

o.455425 

147951 

0.258847 

-0.313692 

-0.265609 

-0.237109 

0.064379 

-9.393765 

C. 411195 

-0.378411 
0. 146531 

0.58481" 
-o . 033377 

-0. 297067 
0.375983 

-0.374900 

-4.092256 

-0.258481 

-0.222079 

0.354672 

0.409^46 

0.536726 

0.281262 

9.373285 
-0.  14  7220 

0.013623 

4.314461 

4. 241552 
-4. 139184 

-0 .318071 
0.233238 

7722 

-0.389919 

-9.383077 

-0.309874 

0*345583 

D  .  243358 

".269749 

3.373283 

. 


•  r '  . 
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• 

X 
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.0 
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. 
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• 
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CHECK  OF  SIMILARITY  TRANSFORMATION 
36.22341''  18.157457  O.OCOOOO  n.O^nnOC 

' .  -C. *00  6  poo  -o.oooooc 


O.POOOOO 
-0.0.')  ^000 


18.15745  7 

39.  373  569 

19.  7 8 9 n 9 2 

r  .  ccoo O  P 

-•.n^npr 

-0.0O0OOO 

-  r  .  ooo  ->0^ 

0 . 0  0  0  0  0  0 

0 .  pppp 

0 . 000 OOP 

0*0 0 0  n  0  r 
0.0000^0 

1 9 . 7 8 909 2 
- o . ppp  0On 

42.523507 
C. 000000 

21 .415216 

P  .  000000 

-o.fnoooo 

O.OOOOOP 

0 . 000000 
o. ooonnn 

o. 00000 0 

-  p  .  0  0  0  n  0  0 

2 1.415216 

0 . 000000 

45 . 673446 

■T  .  pppPC  P 

23.041339 
-0.0000 0 3 

o . 000or0 

-0.  00*  ppp 

-0.000000 

23.041339 

43.823384 

24.645413 

o . 

p. or  TOCO 

-0 . 000000 

-0. 000000 

0*O00rO0 
51 . 973323 

-  0 . 0  0 0  n  0  0 
26.293585 

p . ppoOOO 
6. 0000 0  0 

0  .  00C000 
-0.000^00 

24.645413 

-0.000000 

0.00000 C 
26.293585 

-r . poopor 
55.123261 

-0.000000 
27. 859073 

-0 . TfP  PQO 

0  .  p  0  P  o  0  0 

O.PnOOCC 

O.POOOOO 

—  o . 

-0 . OOOQP0 

0 . 0°  3000 

. 

0.00 ^000 

0 . 0  o  o  0  0  n 

27. 859073 

58.273200 

29.479684 

0.O00000 

-O.CnOOOP 

-0.00 

p. ppopOC 

P . POP  TOP 

0. pppooo 

29.479684 

p .  oooo  o  r> 
61 .419831 

-p . ppppr  o 

31.056197 

-0.  3-Tnnrr 

- 0 .  Or'rnnn 

o . non ooo 

. 

o.pooooo 

0  ^  -  r  0  * 

-0.0 

31. ^  5  6  1 9  7 

-0 . op 00 00 

36. 7'+ 5644 

.  -  .  - 


. 

. 

. 

. 
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MATRIX ( D) 

-1.0  0. -  0  .  n  0 . ~  C.O  0.0  0.0  o.O  0.0  0.0 


r.O  1.3  0.0  0.  "  ° .  0  0.0  0 .  ^  0.0  0.0  0.0 


0.0  0."  -1.7  0.">  0.0  ° .  0  0.0  0.0  0.0  0.0 


n  •  O  0.0  C .  o  2.3  o  .0  0.0  0.0  0.0  0.0  0.0 

- - - - - - - - 


0.0  0.0  0.0  0.0  -2.8  0.0  0.0  °.0  0  . n  0.0 


0.0  0.0  0.0  0.0  0.0  3.4  o.o  0.0  0.0  0.0 


0.0  0.*'  0.0  0.0  0.0  0.0  -4.2  0.0  0.0  0.0 


0 . °  0 . o  0.0  0.0  O.o  0.0  C.O  5.0  0.0  0.0 


O.o  0.0  0.0  0.0  O.o  0.0  0.A  0.0  -6.0  0.0 


• 

o.o 

( ** 

■ 

. 

. 

. 

. 

. 

. 

. 

o.o 

. 

r  .c 

— - - IMM.5.EQS.E  OF  THr  MATRIX  DFE  IGENVECTDR £ _ 

•  09  8108  -?0*  184289  0*256951  -".  3  14-3  3  7  3. 355789 
.387222  3.387484  -0.373411  0.354672  -0.318071 


— 1 - 

0.001812 

Q . 281087 

0.007077 

".455425 

" 22566 
0. 584810 

0.061534 

0.538726 

0.143140 

3. 237722 

-0 .244873 

".401077 

-".441923 

0.373101 

-0.223858 

0.035764 

6'.  147951 

- 2920b7 

".373285 

-0.383077 

-0.493°9° 

0.228381 

- 0 . 047428 
0.258807 

0.455799 

-0.374900 

-6.053093 

0.013623 

-0.405880 

".345583 

-0.327534 
0. 1612  68 . 

-0,511071 
-  "  .  3  1  ’ 

-  0.  34981  7 
-0.258481 

0  .  1  12  371 
"•.241552 

0.417216 

0 .289749 

-". "294°" 

-C. 087184 

-0.196367 

-0.355395 

-0.502245 

-0. 5" 8?  5  5 

-0 . 265609 

0.146531 

0 . 409°  46 

0.238238 

[  0.373393 

0 • 40 84 "2 

-0. 449938 
- 0 . 2  3  7  1  °  9 

0. 226489 
-0. 038377 

0.117740 
°. 281262 

-0.370599 
-0. 38Q9 1 9 

-0.452995 

-0.407239 

-0.381131 
r  .  "64379 

3.182087 
°.  3  75983 

0.42851  8 
-0 . 147220 

- ".060869 
-0.309874 

0 . 146543 

0. 32768° 

".485679 

0.475125 

0.190953 

-0.227246 

-"•393765 

-" .092256 

0. 314061 

°. 243358 

"  .  461548 
-0.233190 

-0.231072 
0.411 195 

-0*2216 
-0. 222079 

6 .439420 
-0.139184 

-0. 185048 
0.373283 

•  . 
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*1. 

I€  1  li K.  v- 

Pc\(  ,r 

^  f  . 

.  - 

Id#.'1 

__ . '  F  IGF  -I V  A L  1 ) h  S  Qf  THE 

ORIGINAL  COEFFICIENT  MATRIX 
2. 11576 r  1°  7. 125319  6.483325  37.969877  64.  555529 

90.06805  7  14.  3437^4  51,509352  76.824725  25.  16592b 


EIGENVECTORS  OF  THE 
ORIGINAL  COEFFICIENT  MATRIX 


-0. 0981 08 
,  ^.029409 

-0.001812 
-9. 373393 

9.244873 

9.452995 

0.493090 
-0. 146543 

0.32  7534 
-0. 461548 

-0 . 24 51 '"4 

_  ''•"'’94!? 

9.533433 

-0.063979 

-0.679724 

-9.  115955 

-9. 59841 7 

-9.506904 

0 . 435814 

-0.373826 

-0.444268 

-0 . °39r 1 7 

9.764085 

-0. 7889  76 

9.604834 

9.339518 

-0.391600 

-9.314828 

-0.339739 

0.383312 

-0.693555 

n.  135683 

0. 822688 

-0.  117069 

0.247777 

-0.783647 

".2  59618 

0.944882 

1.047650 

0.968921 

zOlmSSlUI 

-0,395782 

0.618968 

1.122259 . 

-1. I 53601 

1 .388709 

1 . 024706 

0.163392 

-0.527985 

9.511657 

-1 .299597 

0.960755 

9. 122242 

9.789607 

0.551216 

-1.737217 

1 . 395917 

-I. 391942 

-0.776726 

-0.797043 

-1 .615898 

-1.899122 

-9.616957 

-1.079225 

1.308928 

1.107589 

0.988744 

-9.268459 

1.642000 

-1.714683 

-1.993027 
0. 7369^3 

2. 941  '  ]  > 
—0*1 9 2998 

-  1 . 4688C  3 
1.8  ?08 1 7 

- L .885374 
-9.ho3956 

-1.299900 
-L.  110634 

-2.138674 

-3 • 2485 1 9 

-2.253906 

-0.082146 

-1.456557 

-2.466546 

-1 .696"! 1 

0.88  7 738 

-1.893791 

0. 83927b 

-2.263893 

1 .695670 

-2. 732488 

2.465042 

1.9241 17 

1 . 69934^ 

-2.781 299 

-2.210331 

1  .  735871 

2.662631 
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SOLUTION  (IF  THE  DISPEkSIuN  MODELE  UUAT  ION 
US  I  No  ORDINARY  i3.C. 

SEN  I -ANALYTICAL  SOLUTION 


CONCENTRATIONS  AT 


— 

TIME 

1 

2 

3 

4 

5 

0." 

c 

• 

c 

0.0 

0.0 

0.0 

0.0 

0,1 

0 . 736698 

n. 46^559 

'. 24872 0 

0. 118507 

0.050751 

.  2 

0.8623 8  B 

0.687810 

0. 507699 

0.348427 

0.223532 

0.  3 

0 . 913159 

0. 795308 

0.659653 

0.521595 

0. 393846 

0.4 

940137 

0. 855966 

0. 753393 

0. 641061 

0.527633 

0.5 

0. 956532 

0.894047 

0. 815234 

0. 725082 

0.629212 

0.6 

0 . 967354 

0.919724 

0. 858308 

0.786140 

0.706879 

Q  .  7 

0.974924 

937956 

' . 88961 2 

0. 831 860 

0.767118 

0.8 

0.980449 

0. 951413 

o. 913109 

0. 866914 

0. 814444 

n.  9 

0.984612 

0.961533 

".931169 

0.394261 

0.851986 

1.0 

r. 987820 

0. 969555 

o. 945286 

0.915859 

0.881968 

CONCENTRATIONS  AT 
6  7 

0 . 0  0.0 
:■«  no3Q6  o.r-.?7ia5 


GRID  POINTS 
8 

0 

002429 


C 


0.0 

0.000786 


10 

0.0 

■n.  c.?rza  i. 


0.2 

0. 134939 

7. 077168 

n . 042 1 4  7 

C. 022857 

C .014034 

0.3 

r  .  28  50  50 

0. 193765 

0. 134991 

0.093113 

0.071142 

0.4 

'".421378 

0.328199 

'*.  252303 

0.  198584 

0. 168586 

0.5 

0.534381 

0.446399 

0 . 370885 

a.  3 15694 

0*28 3729 

C .  6 

0.625910 

'"'.  543228 

0.479476 

0.428692 

0.398456 

0.7 

0.699703 

3.633641 

"  .  5  7  4  r'  1  0 

o. 530062 

0.503208 

0.8 

r.  ^59197 

C. 7^4283 

0.6540C 7 

0.617383 

0.594363 

0.9 

0.80721 o 

C. 762232 

".720577 

0.690837 

0.671507 

1.0 


.845991  0.809536 


775408  ''.751746  0.735713 
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CONG  ENT RAT  ION  PROFILES-ONE-DIMENS  I QNAL 
NPN  HOMOGENEOUS  MEDIUM 

GRID  POINTS 

09524° - Q_,  1  90  46°  Q. 285720 _ 0,38096 0 _ °. 476700 

57144°  ".66668°  0.761920  0.857160  0.9524C0 


INITIAL  CONDITION  VECTOR 

G . 0  0.0  0.°  0.0 

CUO _ cun _ (un _ cun 


BOUNDARY  CONDITION  VECTOR 

8.5187  0.0  0.0  0.0  0.0 

0.0  0.0  O.o  o.o  O.o 


COEFFICIENT  MATRIX 


22. 

2 

18.2 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

o.o 

18. 

2 

39.4 

19.8 

0.0 

o.o 

0.0 

0.0 

0.0 

0.0 

°. 

0 

19.8 

42.5 

21.4 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0 

Q.  0 

Z1.4. 

.45 .7 

25.Q 

0. 3 

0. 0 

0.0 

Q.O 

Q.o 

0. 

0 

0.0 

0.0 

2  3.° 

48.8 

24.6 

0.0 

0.0 

0.0 

0.0 

0. 

0 

0.0 

0.0 

0.0 

24.6 

52.0 

26.3 

0.0 

0.0 

0.0 

_JU 

0 

JUCL 

0.0 

o.o 

o.o 

26.3 

55.1 

27.9 

o.o 

o.O 

0. 

o 

o.o 

0.0 

0.0 

O.o 

0.0 

27.9 

5  8.3 

29.5 

0. 

0 

c 

• 

o 

0.0 

c 

• 

c 

o.o 

0.0 

0.0 

29.5 

61.4 

31.1 

cwim  aiflo 

. 


o  0.  " 


.  0.°»  O.n 

.  '  .  0  ' .  " 


°  J} 


. 

. 

. 
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SOLUTION  OF  THE  DISPERSION  MODELE QUAT I  ON 
USING  DANCKWERTS  B.C. 

. . . . . '  SFMI-ANALYTICAL  SOLUTION 


LONG  ENT RAT  IONS  AT  GRID  POINTS 
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SOLUTION  OF  THE  DISPERSION  MODEL  EQUATION-ONE 
DIMENSIONAL  NON-HGMUGENEOUS  CASE. 

INPUT  DATA 

N=  THE  NUMBER  OF  GRID  POINTS. 

_ NT  ^  THE  TOTAL  NO.  OF  TIMFS. _ 

MAT  RI X  =  THE  COEFFICIENT  MATRIX 

X=  THE  DIMENSIONLESS  DISTANCES  OF  GRID  POINTS. 
CI=  DIE  INITIAL  CONDITION  VECTOR- 
Cl=  THE  BOUNDARY  CONDITION  VECTOR. 

T I ME=  THE  DIMENSIONLESS  TIMES. 

_ DX=  THE  GRID  SPACING.  _ 

ASSUMED  DATA 

LINEAR  RELATIONSHIP  OF  D  VS  Z  D=0 .  5  ( 1 .C+Z  )  • 

D=  THE  AXIAL  DISPERSION  COEFFICIENT. 

I-  THE  DIMENSIONLESS  LENGTH. 

ALPHA=  I • 0/ ( U*L )  AND  IS  ASSUMED  AS  0.3 

U-  THE  VELOCITY  OF  T H E  FLOWING  FLUID. _ 

L=  THE  REACTOR  LENGTH. 

BET  A  =GR I □  SPACING/2.0 

DOUBLE  PRECISION  MATR IX ( 40 , 40 ) t VECTOR ( 40 ,40) , 
1  TOLERC , w (40 ,40) , CEVR(40,40) f TIME! 40) 

DOUBLE  PRECISION  X ( 40 ) , VAR ( 40 ) , C 1 ( 40 ) , C 1 l 40 ) 


_ DOUBLE  PRECISION  D(4Q , 40 ) , V ICTOR ( 40,40) 

C 

READ 

THE  DATA 

RE AD (  5,1) 

N ,  NT 

RE AD ( 5 , 5 ) 

( (MATRIX*  I  »  J  )  ,  J=  1  ,  N )  ,  I  =  1 , N ) 

RE  AD (  5,2 

)  (  X  (  J  )  ,  J  =  1 , N ) 

R  E AD (  5,2 

)  (Cl ( J ) , J  =  1 ,N  ) 

RE  AD (  5,2 

)  (C1(J) ,J=1,N) 

READ( 5,3) 

(TIME(J),  J= 1 , NT ) 

READ( 5,6 ) 

( (D( I , J ) , J=1,N) , 1=1 ,N) 

READ( 5,4) 

DX 

NURM=  2 

TOL  ERC=0 • DOO 

WRI TE ( 6, 223  ) 

L I NE  S=  9 

CALL  LINECT(LINES,4,2) 
WRITE(6»253)  DX 
WRI TE ( 6 , 220  ) 

LINES  =9 

CALL  LINECTILINESt 4,2) 

WRITE! 6,224 ) 

WRITE(6,223) 

WRITE! 6, 231) 

CALL  LINECT (LINES, 1,2) 
WKITE(6,232)  (X(J),J^1,N) 


I .  .  :  . 

X  l  >i  T  AH  Ttfljjm.  3  jHT  c  X  I  fl  T  AV 

IT  J.  .  i  i  :\  1 1  Hr  =  •  |  T 

3HT  «XQ 

•  t  +  .  1  )  .  .  'U,  1  ;  ;  J  x/  4.||  j 

- 

•  h T o |4 3  J  \  ;T  DA  3  3HT  -j 

. 

•  ■  rl  t 

<  >  • i  ♦  ■ »  *  i  v  -  j  ,  icv,  -)  i . ,  j  t  r 

■ 

1  »  1  ‘  ♦  t  D-  J  M  !  S 

TH,/  (I,  >GA3« 

•  ♦  t  .  »  i  L  »  )  )  l  ,  / 

(l)  )  I  S  ,  )  (  ;•  A 

(  *  t  / 

u « , ;  u  r  i  )  )  (St  )  ? 

(  T ,  ,  f  u  ,  (  L  )  ,T)  (€•')( 

i  t  I  -  I  »  (  1  *  I  -L  t  (  L  »  !  )C  )  )  id,  e) 

J'  ■■  ( f  ,  c?  ) 

or  . '  =  m..t 
l  SSt  )  fl  .. 

=  I 

(St^t23.-I  J  MD3MI  J  JJ.vj 
*  • 


i  t  ‘ )  .  T  1  *  a 

(  S  S.  ,  )  _  T  I  w 

(  t  *  S  ,  )  T». 

C  IfS  f  )  1  4 

. 

( c  s  ,  a ) :  i  i  -  • . 

<€€S«d)?TI 

(S  ,  .  o'  it  I  )  TD-<rtI  j  j  JA  ) 
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30 


WRITE! 6,234)  ( C I ( J ) »  J  =  1 ,  N  ) 

CALL  LINECT(LINES,4,2) 

WRITE(6,223) 

WRITE(6,235) 

CALL  LINECT(LINES.2.2) 

DO  30  J=1,N 
Cl ( J )=C1 ( J  )  / (DX**2 ) 

WRITE<6,234)  <  Cl<  J  )  ,  J=  1,  N  ) 

DO  36  J  =  1  ,  N 
DO  36  K=1,N 

MATRIX (J«K)=MATRIX(JtK)/(nX**7  I _ 

CONTINUE 
WRITE(6»220) 

WRITE(6,24''1) 

CALL  LINECT ( LINES»4,2) 

DO  31  J  = 1  *  N 

WRITE (6, 241) (MATRIX! J,K) , K=1 ,N) 

31  CONTINUE 

CALL  JACOBI (N, MATRIX,  VECTOR , TGLERC , NORM ) 

_ WRITE(6,220) 

LINES* 9 

CALL  LINECT (LINES, 6, 2) 

WR I T  E ( 6 ,  242  ) 


36 


WRITE!  6,232  )  (MATRIX! J,J)  , J= 1 ,N ) 
CALL  LINECT (LINES, 3,2) 
WRITE(6,223) 

WRI TE( 6, 243) 

DO  32  K=  1 ,  N 

CALL  LINECT( LINES, 7,2  ) _ 


WRITE!  6,  2  32)  (VECTOR (K,J)  ,J=1,N) 
32  WRITE(6,223) 

CALL  CHECK! VECTOR, MATRIX, N,W ) 
CALL  L I NECT ( L IN  ES , 1 , 2 ) 

WR I TE(  6 , 223  ) 

WRITE (6,244) 


33 


DO  3  3  J  =  1 ,  N 

CALL  L  INECT ( LINES, 7 ,2) 
WRITE(6,232)  ( W ( J  , (\ ) , K= 1 , N ) 

WRITE(6,223) 

WRITE (6, 220) 

WR I T E ( 6 , 255  ) 


37 


DO  37  J  =  1  ,  N 
WR I TE ( 6 , 241  ) 
CONTINUE 


(  D  (  J  ,  K  )  ,  K*  1  »  N ) 


CALCULATE  THE  TRANSPOSE  OF  THE  MATRIX  ( f 
THE  EIGENVECTORS 

DO  40  I  =  1 ,  N _ _ _ 


DO  40  J  =  1 , N 

VICTOR ( I , J) =VECTOR( J , I ) 
CONTINUE 
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A=(D(-1 ) *A(* )*D) 

ORIGINAL  coefficient  matrix _ 

D=T HE  DIAGONAL  MATRIX  USED  FOR  THE  CONVERSION 
OF  MATRIX  (A(*))  TU  THE  SYMMETRIC  FORM 

- - A_=THE  SYMMETRIC  MATRIX  DERIVED  FROM  THE  ORIGINAL 

C  COEFFICIENT  MATRIX  A ( * ) 

:  Q=THE  MATRIX  OF  EIGENVECTORS  OF  A 

C  CALCULATE  THE  EIGENVECTORS  OF  THE  ORIGINAL _ 

E  COEFFICIENT  MATRIX 

DO  33  1=1, N 

_ DO  39  J -  1 , N _ _ _ 

VECTOR ( I , J)  =  D( I , I ) *VEC  TOR ( I , J) 

38  CONTINUE 

WRITE!  6, 220)  ________ 

L I NE  S  =  9 

CALL  LINECT! LINES, 6, 2) 

_ WRI  TE ( 6 , 2  56 ) _ _ _ 

WRITE (6, 232)  ( MATRI X ( J , J )  , J  =  1  ,N ) 

CALL  LINECT (LINES, 3,2) 

WRI TE ( 6 , 223 ) 

WRITE(6, 257) 

DO  39  K= I , N 

_ CALL  LINECT (LINES, 7,2) _ 

WR I TE ( 6 , 232 )  (VECTOR(K,J)  ,J  =  I,N) 

39  WRITE(6,223) 

(D*Q)(-1)=  Q  (  -1  )  *D(  -I  )=QT*D(  -I  ) 

:  QT=THE  TRANSPOSE  OF  THE  MATRIX  OF  EIGENVECTORS  OF  A 

:  D(-1)=THE  INVERSE  OF  MATRIX  D  AS  DEFINED  PREVIOUSLY 

l  CALCULATE  THE  PRODUCT  (QT*D«1) _ _ 

DO  41  1=1, N 
DO  41  J  = 1  ,  N 

VICTOR { I , J ) = VICTOR ( I ,J)/D( J, J) 

41  CONTINUE 

CALL  SEMIAN(N,VAR, VECTOR, Cl ,CI  , MAT R I X , T 1  ME , NT , 

1CEVR, VICTOR) _ 

WRITE (6, 220) 

WR I TE ( 6, 225 ) 

WRITE! 6t  245 ) 

WR I T  E ( 6 , 22  3 ) 

WRITE(6,246) 

WRI TE ( 6, 243) _ 

DO  34  J=  1 , NT 

34  WRITE(6,251)  TIME(J)t  ( C E VR ( J , K ) , K= 1 , 5 ) 

WRITEt 6,223) 

WRITE(6,246) 

WR I TE ( 6 , 249) 

_ DO  35  J  =  1  ,  NT _  _  _ _ 

35  WRI TE ( 6 , 251 )  T I  ME ( J )  »  ( C E VR ( J , K )  ,  K=6 , 1 0  ) 

WR I TE ( 6, 220 ) 

*RlTE(c,246) 
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WR I  T  E ( 6  »  2  59 ) 

w . . DO  45  J  =  1 ,  N  T _  _  _ 

45  WR I T  E ( o ,  251 )  TIME(J),  (  C  E  V  M  J  ,  K  ) ,  K=  1  1 ,  1  5  ) 
WRITE!6,223 ) 

WRI TE ! 6 , 246  ) _ _ _ 

WRITE(6,260) 

DO  46  J= 1 , NT 

46  WRI TE ( 6,251 )  TIME(J),  ( C E VR { J  ,  K ) , K= 1 6 , 2 Q )  _ 

C  FORMAT  STATEMENTS 

1  FORM A T ( 1 X , 2  I  4 ) 

2  FORMAT  !  10F8«  5) _ _ _ 

3  FO  RM AT ( 1 1 F7  •  3  ) 

4  FORMAT ( IX, Flo. 8 ) 

5  FORMAT (10F6. 6)  _ 

6  FORMAT ( 10F9.4) 

2  2n  FORM  AT  (  1  FI2  ) 

221  FORMAT ! 1H, IPX, 8H  . .CQNTD  ) _ 

222  FORM  AT ( 1H  ,  / / ) 

223  FORMAT ( 1H» / ) 

224  FORMAT <1H.18X«28H  CONCENTRATION  PROF  I LES-ONE- » 

111HOIMENS IONAL/25X» 22H  HOMOGENEOUS  MEDIUM) 

225  FORMAT ( 1 H , 20 X , 32HS0LUT I  ON  OF  THE  DISPERSION  MODEL, 

L  18HEQUATIQN/20X. 19HUSING  ORDINARY  6.C.)  _ 

231  FORMAT ( 1H,30X,12H  GRID  POINTS) 

232  FORMAT (1H,10X,5F11.6) 

233  FORMAT I1H»30 X  »  2  5  H  INITIAL  CONDITION  VECTOR  I 

234  FORMAT ( 1H » lOXt 5F12 *4} 

235  FORMAT ( 1H, 30X,26H  BOUNDARY  CONDITION  VECTOR) 

240  FORMAT ( 1H,30X,19H  COEFFICIENT  MATRIX) _ 

241  FORMAT ( 1H, 10X, 10F6. 1 ) 

242  FORMAT (1H,30X,12H  EIGENVALUES) 

243  FORMAT! 1H, 30 X.13H  EIGENVECTORS) 

244  FORMAT (lH*20Xf35H  CHECK  OF  SIMILARITY  TRANSFORMATION) 

245  FORMAT { 1H,30X,25H  S EM I - ANAL YT I C A L  SOLUTION) 

246  FORMAT ( 1H, 25X , 29HCQNCENTRATI ONS  AT  GRID  POINTS) 

248  FORMAT ( 1H, 1 5X,  5H  TIME,  5X,  2H  1,  9X,  2H  2,  8X, 

12H  3,  8 X ,  2H  4,  8 X,  2H  5) 

249  FORMAT ( 1H, 15X,  5H  T I  ME , 9 X , 2H  6 , 8 X , 2H  7,6X,2H  8, 

1 8 X  ,  2h  9,  8X,  2H10) 

251  FORMAT ( 1 H ,  15X,  F6.1,  2X ,  5F10.6) 

253  FORMAT  (  1H.  IPX.  13HGRID  SPACING=,  F  1  1  »_6_) 

255  FORMAT! 1H, 10 X,9HMATR IX (D) ) 

256  FORMAT! 1H»20X, 19H  EIGENVALUES  OF  THE/20X, 

127HORIGINAL  COEFFICIENT  MATRIX) 

257  FORMAT ! lH,2nX,20H  E I GENVEC  TUkS  OF  THE/20X, 
l 27H0RI G I N AL  COEFFICIENT  MATRIX) 

_  259  FORMAT  <  1H,  1  5XT5H  T  I M E  ,  5 X  ,  2H  1 1 , 9X  ,  2H 1 2 , 8X .j_2H13_i_ 

18X, 2H14, 8X,2H15) 

260  FORMAT i 1H, 1 5X,5H  T  I  M E , 9X , 2H 1 6 , 8X , 2H 1 7 , 8 X , 2H 1 8 , 
l8Xt2H19t 8Xf  2H20 ) 
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STOP 

END 
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SOLUTION  OF  THF  DISPERSION  MODEL  EQUAT ION 
USING  DANCKWERTS  B.C. 

SEMI-ANALYTICAL  SOLUTION 
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concentrations  at  grid  points 

TIMtE  11  12  13  14  15 
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PROGRAM  FOR  INTERPOLATION 
INTERPOLATE  THE  VALUES  OF  CONCENTRATION 


CORRESPOND! NG  TO  ONE  ok  I D  FROM  THOSE 
OF  A  HIGHER  POINT  GRID 

N=  THE  NUMBER  OF  GRID  POINTS  (  THE  VALUES 
TO  BE  INTERPOLATED) 

NN=  THE  NUMBER  OF  GRID  POINTS  (  GREATER  THAN 
ABOVE)  _____ 

N T =  THE  TOTAL  NUMBER  OE  TIMES 

GR I DX=  THE  DIMENSIONLESS  DISTANCES  OF  GRID  POINTS 
(CORRESPONDING  TO  THE  VALUES  TO  BE  INTERPOLATED) 


GR I DN=  THE  DIMENSIONLESS  DISTANCES  OF  GRID  POINTS 
(CORRESPONDING  TO  THE  HIGHER  POINT  GRID) 

REAL  GRIPXtiO) |GRIDN(201 , TIME ( 15) ,CUNC (15,1") 


1 , C  E  VR ( 15,20)  f WORK (300) 

PEAL  C INTP ( 1 5, 10) , ERROR ( 15,10) , X , F { 300 ) , ARG( 20 ) 
UK  20)  ,  V  ,  Y  V  (  20)  ,  VAL  (  300) 

INTEGER  I  ,J  »N»NN,NT 

RE AD ( 5 , 1 )  N , NN , NT 

READ (5, 2)  I TIME<  J) « J=1 , NT ) 

3  J  =  1 , NT 


DO 

READ( 5,6 ) 
3  CONTINUE 


(  CE VR ( J , K )  , K= 1 , NN ) 


DO  5  J= 1 , NT 

RE AD (5, 6)  ( CONC ( J , K ) , K= 1 , N ) 

CONTINUE 

READ ( 5 , 1 3 )  (GRIDX ( J ) , J=1 ,N ) 

RE AD ( 5 , 1 3 )  ( GR I DN ( J ) »  J=  1 , NN ) 
WR I TE (  6 , 220  ) 


L I NE  S= 10 

CALL  LINECT (LINES, 4, 2) 

WRITE (6, 264) 

CALL  LINECTILINES, 3,2) 

WR I TE ( 6, 265 )  ( GR  IDX ( I  )  ,  I  =  1 , N ) 

VNRITE(6,222  ) 


WRI TE( 6,266) 

CALL  LINECT (LINES, 3, 2) 

WRI TE ( 5, 2o5 )  ( GR I  ON ( I  ) , 1  =  1 , NN) 

WRITE(6,223) 

WRITE(6,225) 

LINE  S  =  9 


"  CALL  L  I  NECKLINES,  4, 2) 
WRITE(6,245) 
WRITE(6,223) 

WRITE ( 6,246 ) 
WRITE(6,247) 

_ W  RITE (6,248)  _ 

DO  7  J  =  1 »  NT 
7  WRI  TE  (  6 , 251  ) 
WRITE(6,223) 


T  I  ME ( J  )  ,  (CEVR( J,K) ,K=1,5) 


- 


3J  23UJAV  _3HT_ 

(GlflO  THI09  83H01H  3HT  OT  OH  1 OHDM2 3flflOD ) 
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Ti  ,  I  -L  t 

imsl  =  *,  (At  l  )«v.  0)  (d,e)OA33 

TH,I  =  l  e  CIO 

t  .  t )  »  t  3 1 a )  ■ 
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(  «  J*L« ( l) *  Ifl  )  {  f  I  ,  c1 )  A3 

*/■■*•>•)  i 

(  Oc  S \tc  )3T  n  , 

(  S  ,  ♦  ,ai3i  I  J)  TO  IV  I  J  JJ  J 
l  ,  i)  ITIirt 
( s,  » e  ji  i  i  > t  j  •  i  j  jj/o 
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( <  3 '  ,  )  7  I 

I  ,  .  i  )  '  ’.ili'j- 

(HH  ,  Is  1  ,  (  I  ) .  I  UJ )  (<  r  ,<  )  JTJM  4 

(  S  ,  )  T 
( c*  SS  i  )  3  i  I 
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(T^S,d)3T  IflW 
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• 
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WRI TE ( 6,246 ) 
WRI TE ( 6 »  249 } 


DO  8  J=1 ,  NT 
8  WR I TE ( 6 , 251 ) 


T I  ME ( J  )  , (CEVR(J,K) ,K=6, 10) 


WRI TE ( 6 , 246 ) 
WRI TE ( 6 , 2  59 ) 
DO  15  J=  1  ,NT 

15 

WR ITE ( 6, 251 ) 
WRI TE (6,223 ) 
WR I T E ( 6 *  246) 

TIME! J) , 

(CEVR! J  ,K) , K= 11,15) 

L~ — 

16 

WRITE(6,258) 
DO  16  J  =  1 ,  N  T 
WRI TE ( 6, 251 ) 

T I  ME ( J  )  , 

tCEVR! J ,K) , K=16 ,20 ) 

WR  I  T  E  (  6 , 2  20  ) 

L I NE  S=  10 

CALL  LINECT  (LINES, 3j>2) 

WRITE ( 6, 245 ) 

WR I TE ! 6 , 223  ) 

WR I T  E ( 6 , 246 ) 

WRI  TE ( 6 , 2 50 ) 

WRITE(6,248) 

DO  9  J=1,NT 

9 

WRI TE (6, 251 ) 
WR I TE ( 6, 223 ) 
WRI T  E ( 6 , 246 ) 

TIME! J  )  , 

( CGNC ( J , K ) , K= 1 , 5 ) 

17 

WR I TE ( 6 , 249 ) 
DO  17  J=1,NT 
WRITE(6,251) 

TIME ( J  )  , 

( CONC ( J  ,  K ) ,K=6, 10) 

14 

DO  14  JJ=1,NN 

Z( JJ)=GRIDN( JJ) 

CONTINUE 

C 

C 

C 

THE  TABLE  OF 

Z  VS  F  READY  FOR  ONE  VALUE  OF  TIME 

C 

C 

C 

ORDER  THE  TABLE  USING 

S.S.P 

IROW=20 

I C  0  L  =  1 

ND  I  M-=20 

DO  19  J= 1 , NT 
DO  19  1=1, N 
X«GRIDX< I ) 

31 

DO  31  JJ=1,NN 
F(JJ)=CEVR(J, 
CONTINUE 

JJ  ) 

EP  S  =  0 • 0000 1 

CALL  ALI ( X,ARG,VAL»Y ,NDIM*EPS, IER) 


4 r'  1  ,d  = 
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l  .  I  =  * 


i  .  *  =  /« 


^l^l)«VO),IU3f  IT 
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(  ;  j  )  ■  i . )  j  j  a  •  - 
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((VS  f  * )  T  Iflh 
(  A  ,  I  U 
T,  ,  J  .=1  P  M) 

I€SS*<5)3TI«Ik 
(  •  5  r  )  :  T  I  „ 

(<  AS,o  );  T  I  s 

yv'fi  =t  y  i  oa 

(  i  S.  t  i )  Y 

i  » I  =  ll  1  I  a 
4  It  )l  I  «.'*  lit  )  1 


4  Y0A38  1  av  no  3J6AT  3HT 


.  J  ;*  r  i  •■  * 

y  » i * l  pi  oo 

4  I  )  XOI  vJ,  - 
H  fi  tt  J  6  «’ 
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YY  <  I  )=Y 

GINTPfJt  I  )- Y Y(  I  ) 

19  CONTINUE 
WRITE(6,220) 

_ _ L  I  NE  S  =  9 _ 

CALL  L I  NEC T ( L  I N  E  S  »  4 , 2  ) 

WRITE<6,260) 

WRITE (6,248) 

DO  20  J=lt NT 

20  WRI TE ( 6 , 251 )  T  I  ME  (  J  )  ,  ( C I NTP ( J , K ) , K= 1 , 5 i 
_ WRI TE (  6, 223  ) 

WRITE(6, 249) 

DO  30  J - 1 , NT 

30  WRI TE ( 6» 251 )  TIME(J),  (CINTP(J,K) ,K=6,10) 

DO  27  J= 1 *  NT 
DO  27  K- 1 , N 

2  7  ERROR ( J,K)=C  INTP( J  ,K  )  -CONC ( J , R ) _ _ _ 

WRI TE ( 6 , 223 ) 

WRI TE ( 6 , 255 ) 

WRITE! 6,223 ) 

WRITE! 6f  248 ) 

DO  28  J=  1 , NT 

28  WRI TE ( 6 , 251 )  TIME(J),  ( ERROR ( J , K )  , Kf 1 ,5) _ 

WR I TE ( 6 , 223 ) 

WRITE(6,255) 

WRI TE ! 6 , 223 ) 

WRITE(6,?49) 

DO  29  J=  I ,  NT 

29  WRI TE ( 6, 251 )  TIME(J),  { E  RROR ( J , K ) , K=6 , 10 ) 

C  FORMAT  STATEMENTS 

1  FORMAT ( IX, 31 3) 

2  FORMAT (lrF7. 3) 

6  FORMAT  1 5F16. 6 ) 

13  FORMAT (10F3. 5) 

220  FORMAT ( 1 H2 ) 

222  FORMAT! 1H,//) 

223  FORMAT ( 1H , / ) 

225  FORMAT ! lHf20X,32HS0LUT ION  3 F  THE  DISPERSION  MODEL, 
18HEQUATION/20Xf 19HUSING  ORDINARY  b.C.) 

245  FORMAT ( 1H,30X,25H  S EM  I -ANAL YT I  CAL  SOLUTION) 

24t>  FORMAT  (  1 H  ,  2  5  X  ,  2  9HC0NC  E  NTRA  T I  QNS  AT  GRID  POINTS) 

247  FORMAT ( 1H,40X, 17HTWENTY  POINT  GRID) 

248  FORMAT! 1H,15X,  5H  TIME,  5X,  2H  1,  9X,  2H  2,  8X, 

12H  3,  8 X ,  2H  4,  8X ,  2H  5) 

249  FORMAT ( 1H, 1 5X,  5H  TIME,9X,2H  6,8X,2H  7»8Xt  2H  8, 
I8X,2H  9,  8 X ,  2H10) 

250  FORMAT ( 1H ,40X, 14HTEN  POINT  GRID) _ 

251  FORMAT (1H,  15X,  F6. 1 ,  2X ,  5F 1 0 . 6 ) 

255  FORMAT ( 1H,30X,18H  ASSOCIATED  ERRORS) 

258  FORMAT ! lHf 1 5X, 5H  T I  ME , 9X » 2H16»  8X ♦ 2H17> 8Xt 2H18y 
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. 

(  f  I  £  «  X  1  )  T  A0  I 
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- 
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■ 

. 
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^  •  *  i  t  *  i t  , • : i*hi)T;  »  i 


18X, 2N19, 8X, 2H  2° ) 

733  pORV!AT(  1H,  l5Xt5H  TIMEt  5Xt2Hll »  9X  t  2H12 . 8X  t  2H13  « 
18Xf 2H14«  8Xf  2H15 ) 

26<*'  FORMAT ( 1H, 30X ,20H  INTERPOLATED  VALUES  ) 

_ 264  FORMAT ( 1H» 25 X» 27HGR I D  POINTS (TEN  POINT  GRID)) 

265  FORMAT ( 1H, 10X»5F10.6) 

266  FORMAT { 1H , 25 X , 30HGR I D  POINTS! TWENTY  POINT  GRID)) 
STOP 
END 


(  . 

•  . 

. 

C  .CH  ‘  t  A  I  ,Hl  i  TA  n 


GRID  POINTS (TEN  POINT  GRID) 

C.C9324C  0.139460  0.2 66 7 20  C. 360960  0.476200 
0.671 44  C  0 . c  6  6  o  8  0  n.  751920  0.857160  0.952400 


0 . 048780 
0.292660 
0. 5  3  6  5  8  C 
0. 760460 


GKiu  pgints( twenty 

097560  0.146340  0 

341460  0.390240  0 

585360  0.634140  0 

829260  0.878040  0 


POINT  GRID) 
195120  0.243900 

439020  0.487800 

682920  0.731700 

92 o 8 20  0 . 9  7 5oC C 


SOLUTION  OF  THE  DISPERSION  MODEL  EQUAT  ION 
US  IN 6  ORDINARY  6 . C • 

SEMI -ANALYTICAL  SOLUTION 


CONCENTRATIONS  AT  OR  ID  POINTS 

TWENTY  POINT  GRID 


ME 

1 

2 

3 

4 

5 

0.1 

0.876490 

0. 73^465 

0. 567786 

0.449377 

0. 328480 

0.2 

0.936641 

C. 8601 26 

3. 773755 

0. d8 1o32 

0 .  5  e  7  8  7  5 

C  .  3 

0.960013 

0 . 9  1 C  9  1  8 

0 . 853745 

C. 790098 

0. 721713 

0 . 4 

0.972266 

0. 937949 

0. 897349 

0.651  164 

0.800122 

0.5 

0.974665 

0.954384 

0. 924215 

C . 839464 

0.350402 

0.6 

C. 984506 

C. 965233 

0.542105 

0.915271 

0. 384782 

C.  7 

0.987686 

0. 972261 

0.  9  54-69  5 

0.  93  35  83 

0.909422 

0.6 

0.990345 

0 . 9  7  6  3  5  6 

0. 96392o 

0.947101 

0. 927774 

C.  9 

0.992193 

0.982587 

0. 570399 

0 . 95  7  3  54 

0.941759 

1.0 

0.993613 

0.  985  73  7 

0.  976280 

0.965290 

0.952625 

CONCENTRATIONS  AT  GF 

< I 0  POINTS 

TIME 

6 

7 

8 

9 

10 

0.1 

C . 229940 

0. 154433 

0.099713 

0.062027 

0. 

037249 

0.2 

0. 4964 76 

0.410702 

0. 332942 

0. 264646 

0. 

206396 

0.3 

0 .653676 

0.573016 

0. 508626 

C . 44 1 L  49 

0. 

377917 

0.4 

0 . 745339 

0. o879b2 

0. 629284 

0 . 3  7  0  h  5  4 

n 

~  • 

512650 

0.5 

0.30  76  d  5 

C.  7615  06 

0.  713950 

664637 

0. 

614667 

0 . 6 

C. 351013 

C.  8  1  43  79 

0. 775413 

0. 734721 

0. 

692999 

0.7 

0.332502 

n.  853030 

0. 321403 

0. 786067 

Q. 

753563 

0.8 

C. 906  1 19 

0. 382312 

0.856631 

0. 829413 

C. 

801097 

0.9 

0.924250 

0.9C4950 

0.8340  72 

0. 861 377 

0. 

333  72  5 

1.0 

C. 933398 

0. 922898 

0. 905695 

0. 367596 

0. 

668696 

# 


. 

C  JNCCNTRAf  I  LINS  AT  Gk  I  j  Pul  MS 


T  I  tvc 

11 

12 

13 

14 

1  5 

0.  1 

0. 021639 

0.012184 

0. C  0  6  6  6  0 

0.003541 

0.001834 

0.2 

C. 153039 

0. 113886 

0. C 87929 

0. 064001 

0. 045908 

0.3 

0. 319867 

0 . 267366 

0. 221574 

C. 181692 

0.147897 

C .  4 

0.456868 

C. 4C4040 

0.354676 

C  .  3 1 0  9  5  1 

p  .  2  7  0  C  8  9 

0.3 

0 . 5  6  5  5  0  5 

0. 517385 

0. 471353 

0.426242 

0. 388823 

C  .  6 

C .630949 

0.609291 

0 . 568816 

0.530351 

0.494700 

0.7 

0.  71  3469 

0.683368 

0  •  6  4  8  9  5  5 

n.  61  590  1 

0. 5851 85 

0.8 

C.  7  7 <2 1  3  1 

0. 743001 

0. 714293 

0. 686560 

0. 660729 

0.9 

0. 0  14971 

C. 791005 

0. 767314 

0. 744449 

C. 722941 

1.0 

0 . 8492 79 

0. 829o54 

0. 810222 

0. 791442 

0. 773750 

CGNCENTKAT  I CMS  AT  G 

RIO  POINTS 

•H 

"si 

m 

16 

17 

18 

19 

20 

0.1 

C.0QC927 

C. 000458 

0.000223 

0.000111 

0 . CO  0  066 

0.2 

0.032542 

0  .  C  2  2  9  4  3 

9. C 16 33 4 

0.012159 

C. Cl  009  9 

0.3 

0.  1  1998  6 

0.097724 

0.08091  1 

0. 069484 

0.063577 

0.4 

0.235484 

0.206695 

0. 184172 

0.166451 

0.160191 

C.  5 

0. 3539C5 

0.  3  242  8  5 

0. 300737 

0. 28^106 

0.275310 

0 . 6 

0.462744 

0.435373 

0.413435 

0. 397851 

0.389582 

C.  7 

0  .  p  5  74 05 

0. 533490 

0. 514238 

0 . 50  05  1  7 

9.49  3228 

0.8 

0.63  7260 

0.617005 

C • 600660 

0 . 586989 

0. 532786 

0.9 

0.703437 

0 . 6  8  6  5  8  8 

0. 672972 

C. 663239 

0.658068 

1.0 

C . 757695 

C. 743825 

0. 732606 

0. 724534 

0.  7 2 p 3 2 4 

SEMI -ANALYT ICAL  SOLUTION 


CONCENT RAT 

t — 

> 

— I 

RID  POINTS 

TEN 

POINT  GRID 

TIME 

1 

2 

3 

4 

5 

0.1 

0. 736693 

0.460536 

0. 248719 

C. 118506 

C.05C751 

0.2 

0. 362302 

0.687805 

0. 507696 

0. 346425 

C. 223531 

0.3 

C. 913151 

0. 795302 

0. 659648 

0. 521591 

0. 393844 

0.4 

r’.  94  0129 

0. 855958 

0. 753387 

0 . o4 1 0  5  6 

0.527629 

0.3 

0. 95o523 

0.694039 

0. 815227 

C.  7250  76 

0.629207 

0.6 

0.967345 

C .  9  1 9  7  1  5 

0. a 5 83 01 

0. 7861 33 

0. 706873 

0.7 

0.974915 

0. 937947 

0. 889604 

0.831852 

0.767112 

0 . 6 

0. 980440 

0. 95  1 4C4 

0.913100 

° . 866906 

0.814437 

0.9 

C  .  9  8  4  6  C  2 

0. 961o24 

0. 931160 

0.894253 

0. 851 978 

1 .0 

0.987811 

0.969546 

0.945277 

0.915851 

0. 881960 

UJ 

>_ 

H- 

CONCENTRATIONS  AT 

6  7 

GRID  POINTS 
8 

9 

10 

0. 1 

C. 019846 

0. 0071 85 

0. 002429 

0.000786 

0.000281 

0.2 

0.134938 

0.077168 

0.042147 

C . 022857 

0.014034 

0.3 

0. 2 8 50 4 9 

C. 198764 

0.  134990 

0.093113 

C. 07 1 142 

0.4 

0. ‘♦21375 

0.328197 

0. 252301 

C  .  1 9  8  5  3  3 

0 . 1  o  8  5  8  5 

0.5 

0.534376 

0  •  4  4  6  3  9  6 

0.  3  708  82 

0. 31 5o92 

0. 28  3  72  7 

0.6 

C . c 2 590 5 

C .  5  4  8  2  2  4 

0.  4794  72 

0. 428639 

0 . 396453 

0.7 

C  •  o  9  9  b  9  7 

0. 633638 

0. 5  7 4006 

C . 530057 

0.503204 

0.8 

0.759191 

0.704277 

0.654002 

0.61737a 

0 . 594358 

0.9 

0.607203 

0. 762226 

0.  7205  70 

0.690831 

0.671502 

1  .0 

0 . 845984 

C. 809529 

0. 775401 

0. 751739 

0. 735707 

INTERPOLATED  VALUES 


TIME 

1 

2 

3 

4 

5 

0  .  I 

0  .  7  4  1 4  4  6 

0. 461903 

0. 242  60  7 

0.  108693 

0. 342130 

0.2 

0. 364021 

0. 89C528 

0. 509239 

0. 347038 

0.219346 

0.3 

n. 41 ^447 

0. 796385 

9. 660894 

0.521336 

0. 392512 

p  .4 

0 . 939728 

0.655779 

0. 753340 

0 • 6404  9  7 

0 . 526246 

0.5 

0 . 955699 

0. 8  9  29  59 

0, 813954 

C. 723203 

0. 626697 

0.6 

0 . 966238 

0. 917980 

0 • 850^15 

0. 782978 

0.702976 

0.7 

0. 973046 

C. 933734 

0.886503 

0 •  82  7566 

0.761847 

0.8 

C. 978983 

C. 948307 

0. 909343 

0 . 561 644 

0. 807906 

0.9 

C. 983092 

0. 958726 

0.926859 

0.888152 

0.344297 

1.0 

C. 986147 

0. 966405 

0. 940520 

0.909020 

0.873247 

TIME 

o 

7 

8 

9 

10 

0.  1 

0.014393 

0.004381 

0.001204 

n. 000 302 

0. 000079 

0.2 

0. 129176 

0.071262 

0.037135 

0.018838 

0.010826 

0.3 

0.23  1952 

0. 1 942  8  7 

0.  1299  2  8 

0.087444 

0.065639 

C .  4 

0.418776 

C. 324459 

0. 247989 

0.193014 

0. 163142 

0. 5 

C. 630940 

C. 442223 

0. 366609 

0. 310021 

0.278455 

0.6 

0.621093 

0 .  5  4  2  8  8  5 

3. 474410 

0.422102 

0.392541 

0.7 

0.693344 

0 . 6  2  67  5  5 

0. 567563 

0. 521853 

0 . 4  9  5  8  3  5 

0 . 8 

0.  751294 

0.695o25 

0.645852 

0.607129 

0.585001 

0.9 

0.797838 

0.751938 

0.710578 

0. 678362 

0.659916 

1.0 

0 . 835252 

0. 797596 

0. 763573 

0. 737050 

0. 72 1 343 

ASSOCIATED  ERK 

OKS 

TIME 

1 

2 

3  4 

5 

C.  1 

0.904753 

C. 001647  - 

0.00oll2  -3.009813 

-0.008571 

0.2 

0.001639 

0. 002723 

n. CO 1543  -0.001387 

-Q.0C4135 

0.3 

C. 000296 

0. 0010o3 

0.001246  C. 000247 

-r. 001362 

0.4 

-0.009401 

-0.000179  - 

3.000047  -0.000559 

-0.001383 

0.5 

-0.00 0824 

-0. OC 1080  - 

0.001273  -0. 901d73 

-C.  0025  10 

0.6 

-0.001107 

-0. 301765  - 

0.002236  -0.0C3155 

-A. 003897 

0.7 

-0.001369 

-0.092213  - 

0.903101  -0.004236 

-C  .005265 

C.  8 

-0. 301457 

-C. 002597  - 

0.003757  -0.005262 

-C.  0065  31 

C  .  9 

-C. 001510 

-0.  302898  - 

9.00*301  -0.096101 

-0.00 7631 

1.0 

-0 • 00  Looh 

-0.003141  - 

9.00*757  -0.006831 

-0.008713 

ASSOCIATED  ERR 

OR  S 

TIME 

6 

7 

8  9 

10 

0 . 1 

-0. 005448 

-0.002304  - 

3.001225  -Q.C0C484 

-0. 009202 

0 . 2 

-0.00 5762 

-0. 005996  - 

0.008012  -0. CO 4 019 

-0.003208 

0.3 

-C, 003097 

-0.004477  - 

0.005062  -C. 005668 

-0.005453 

C  .4 

-0.002599 

-0.003738  - 

0. 304312  -0.005569 

-0.C05443 

0. 5 

-0.003436 

-0.004173  - 

0.004273  -0.005671 

-0.005272 

0 . 6 

-C. 004812 

-0.005339  - 

0.005062  -0.006587 

-C. 905912 

0 . 7 

-0.006353 

-C. 906381  - 

0.00o443  -0.008204 

-0.007369 

C  .  8 

-0 . 007896 

-0.008652  - 

0.008150  -0.010249 

-0. 009357 

C  .  9 

-0.009365 

-0.010288  - 

0.009992  -0.012469 

-0. 91 1586 

1.0 

-0.010732 

-0.011932  - 

0.011828  -°. 0146 89 

-C. 013859 

• 

i 

PROGRAM  FOR  INTERPOLATION 
INTERPOLATE  THE  VALUES  OF  CONCENTRATION 
CORRESPONDING  TO  3NE  GRID  FROM  THOSE 
OF  A  HIGHER  POINT  GRID 

N=  THE  NUMBER  OF  GRID  POINTS  (  THE  VALUES _ 

TO  BE  INTERPOLATED) 

NN=  THt  NUMBER  OF  GRID  POINTS  (  GRfcATER  THAN 

ABOVE) 

NT  =  THt  TOTAL  NUMBER  OF  TIMES 

X=  THE  DIMENSIONLESS  DISTANCES  OF  THE  GRID 

POINTS  CORRESPONDING  TO  THE  VALUES  TO  BE _ 

INTERPOLATED) 

XX=  THE  DIMENSIONLESS  DISTANCES  OF  THE  GRID 
POINTS  (CORRESPONDING  TO  THE  HIGHER  POINT  GRID) 
REAL  Xi 10), XX(30) « TIME (IS) ,CONC( 15*10) * 

1CEVR( 15,20) , CGR I D ( 15,10) 

REAL  C I  NTP(  15,1-Q)  .ERROR  <  15,  10) _ 

INTEGER  I , J , N*  NN , NT 

RE AD (5,1)  N  ,  NN , NT 

READ! 5. 2  I  (TIME( J) ,J»1«NT) 

DO  3  J=1,NT 

RE  AD ( 5 , 6 )  (CEVR(J,K) ,K=1,NN) 

3  CONTINUE _  _ 

DO  5  J  =  1 , NT 

RE AD (5, 6)  ( CONC ( J , K ) »  K= 1 , N ) 

5  CONTINUE 

R F AD l 5 , 1 3  )  ( X ( J )  , J=l, N) 

READ! 5 , 13)  ( XX ( J ) ,J=1,NN) 

WR I TE ( 6 , 220  ) 

L I NE  S=  1 0 

CALL  LINECT (LINES, 4, 2) 

_ WRITE! 6»  261 ) 

CALL  L I NECT ( L I N  t  S  » 3,2) 

WRITE(6,262 )  ( X(  I )  ,  1  =  1  ,N) 

WRI TE (  6 , 222  ) 

WR  I  T E  (  6 , 263 ) 

CALL  LINECT (LINES, 3,2) 

_ WRI TE(6* 262 )  ( xx<  I )  ,  1 =1  ,N  I 

WRITE (6* 223) 

WRI TE ( 6 , 225  ) 

L  I N  E  S=  9 _ 

CALL  LINECT (LINES, 4, 2) 

WRITE(6,245) 

WRI TE( 6*  223) 

WRI TE  ( 6* 246) 

WRI TE ( 6 , 247 ) 

WRITE! 6, 243) 

DO  7  J  =  1  ,  N  T 

7  WR I TE ( 6 , 251 )  TIME(J)*  (CE VR ( J ,K ) * K- 1 , 5 ) 
WRITE(6*  223) 


<  1  t  I  >  J  J  Jtl  I)  V  II 

i  if  tU  iAia 

TM  nir.  tMit.  1 
i  Mf  l  t  (L  >:  IT  ) 

rvit i-t  € 

IWj  I  *X%  Mil  >y  V30)  Idtc-IOAa/l 

Tt*f  J  -  L  e  0< 

<H*  X=a ,  ( X*  L )0H00  ) 

. 

(I  » X  =L  ♦  C  l  )X  )  (EX  ,eiCA=Jfl 

*  '  f  (  -  ,  •  ' »  t  r  ,  J  1: 

■ 

(S«A,a3HI J) TO  H  I  J  J  J AO 
<  icsStdiaT  iAi 
(S,X  1 23H1 J ) T  D3H I J  JJAO 
C  H  *  I «  I  *  II  JX )  (SdS,d)3TlflW 

( *  1 1  )  r  I 

*  »  * 

.  r  i «  n  I  /  )  ( -  »  > )  r  j 

(ESr  ,<5»3T  i 
(c?$Std)3T  If. 

<«*S,d)OTI 
U S!  ,0): TIf 
<e*&,dl3T  I  v 
( t  AS  «  dl :  f 1  . 

C  8A$  >d):iT  I 


- 


D-64 


WR I T E ( 6 »  246 ) 

WRI  IE  (j6j  g49  ) 

00  3  J  - 1  » N  T 

8  WRITE(6,251)  T I  ME ( J ) , ( C EVR ( J , K ) * K=6 , 1 0 ) 

WR1TC(6*220) _ _ _ 

WR I TE ( 6 *  246 ) 

WRI TE( 6t  259) 

DO  15  J=1,NT  _ 

15  WRITE (6*251)  TIMF(j),  (CEVRt  J»K) *K=11 *  15 ) 
WRITE(6,223) 

WRITEC6*  246) _ 

WRI TE (6,258) 

DO  16  J=  1  *  NT 

16  W R I T E ( 6  *  2 5 1 )  TIME  C J ) *  ( CE VR ( J  * K ) , K= 16  » 20 ) 
WRI TE( 6,220) 

L I NE  S=  10 

CALL  LINECT (LINESt3»2) _ 

WRI TE( 6*245) 

WRITE<6,223 ) 

J: _ WRITE (  6*  246 1 

WRITE! 6» 2 50) 

WR I TE ( 6, 248 ) 

DO  9  J=1,NT _ _ _ 

9  WRITE (6, 251 )  TIME(J),  (CQNC(J,K) *  K=  1  *  5  ) 
WRIT6(6,223) 

WRITE! 6,246) 

WRITE(6*249) 

DO  17  J= 1 , NT 

17  WRITE (6 *251)  TI ME ( J ) *  (CUNC ( J  *  K )  *K  =  6, 10 ) 

CALL  CALCU(20,N,NT,CEVR,lfX,TIME,  CINTP,XX) 
WRITE(6*22rt) 

LINES^9  _ 

CALL  L INECT (LINES *4*2) 

WRITE ( 6, 260 ) 

WRlTE(6, 248) _ _ _ 

DO  10  J  =  1 »  NT 

10  WRITE (6, 251)  T I  ME ( J  )  * ( C INTP ( J ,K )  , K= 1 , 5 ) 

WRITE (  ,  228  ) 

WR I TE ( 6 *  249 ) 

DO  30  J= 1 , NT 

3n  WRI  TE(6*251  )  T IME  (  J  )  *  (CINTP ( J  *K)  *K=6> 10  ) 
DO  27  J  =  1  , N T 
DO  27  K= 1 , N 

2  7  ERROR! J,K)=C INTP ( J ,K )-CUNC  (  J  ,  K ) 

RITE!  f  2  2 0 ) 

WRITE(6,255) 

WRITE (6 ,223) 

WR I TE ( 6 , 248 ) 

DO  11  J=  1  , NT 

11  WPITE(6,251 )  TIME! J ) »  (ERROR! JtK) , K=lt 5) 


(  »  )  i 

(  '  ,  )  1 1 

(££<>  ,  A  ):  i  1 

. 

U  ,  )  Ti 

(  ,  )  T  I 

el  no 

no)  Tiaw 

S&±L±& 

(  ,  i.  r i  <fw 

< 1 SS,  >  T 1 
(  ♦  ) 

<ne< ,o)  iris 
(  B^S  t  <3  )  r  T  1  HW 
T  Aj  i  - 1  e  j 

(it  )  f  l 


<■•.)•  r  r  , 

(  ,  )  -  T  I 

(r?s-td)3Tlxy 

(S,«>te3MIJ)T33tf  I  J  JJt 
(  dS«-.«13TI»* 

(  f  t  )  Tl 

J  »  i , (  )  (  '  .  ) 

(  ,o).TI 
K*S,  )  TI 
T*M=L  CE  K 

\S 

(rSS*d)3Tl  * 
(?*< ,6)3TIfl 
« t  V  S  •  '  I  3J[  I 
(f  *$  .  - ) .  r  i  t* 

th, j-i  j  i 
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WRI  TE  (  6, 22  3) 

WRI  TE  (  o  »  2 13 5  ) 

MRITE( 6, 223 ) 

WRITE (6, 249) 

DO  29  J=I  « NT _ _ _ _ 

29  WR I  TE  (  6 , 251 )  TIME(J),  (ERROR (J ,K) ,K=6, 10 ) 

:  FORMAT  STATEMENTS 

1  FORMAT ( IX.3I3I _ 

2  FORMAT ( 10F?» 3 ) 

6  FORMAT (5F16. 6) 

13  FQRMAT(10F3.5) _ 

22n  FORMATQH2) 

22?  FORMAT ( 1 H » / / ) 

223  FORMAT ( 1M./I 

225  FORMAT ( 1H, 20X, 32HSOLUTION  OF  THt  DISPERSION  MODEL, 
18HEQ'JATION/20X,21HUSING  DANCKWERTS  8.C.) 

245  FORMAT ( 1 H  »  3  r  X  »  2  5  H  SEMI- AN  ALYT1CAL  SOLUTION) _ 

246  FORMAT { 1H , 25X , 29HC0NCENTRAT I ONS  AT  GRID  POINTS) 

247  FORMAT ( 1H,40X, 17HTWENTY  POINT  GRID) 

2  46  EQJRMAI.il, M.i  1.5.X t  r^i  TIi-c,  5X,  2H  1,  2H  2,  3X, 

12H  3,  SX,  2H  4,  8X  t  2H  5 ) 

246  FORMAT ( 1H  » 1 5X  ,  5H  TIMEt9X,2H  6,8X,2H  7,8X,2H  8, 

1  8X «  2H  9,  6X  t  2H10) _ _ _ _ _ _ 

2  5°  FORMAT (1H»40X»14HTEN  POINT  GRID) 

251  FORMAT ( 1 H »  15X,  F6.1,  2X,  5F19.6) 

_ 2  55  FORMAT ( 1H.3QX.18H  ASSOCIATED  ERRORS  I 

258  FORM  AT ( 1H , 1 5X,5H  TlME,9X,2HI6,8X,2HI?f8Xt2H18, 
18X,2H19, 8X,2H20) 

25Q  FORMAT (1H,15X>5H  T  I  ME , 5X , 2M 1 1 , 9X , 2H 1 2 , 8X, 2H1 3 , 

18X, 2H14,8X,2H15) 

260  FORMAT  (  1H,30X,20H  INTERPOLATED  VALUES) 

261  FORMAT (1H» 25 Xt27HGRIP  POINTS! TEN  POINT  GRID)) 

? 62  FORMAT ( 1H , I0X,5F 10. 6 1 

26?  FORMAT ( 1H,25X,30HGRID  POINTS ( TWENTY  POINT  GRID)) 

STOP 


END 
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GRID  PUINTS(TEN  POINT  GRID) 

0.095240  0.  190480  0.285720  0.380960  0.476200 
0.571440  0.66668"  0.761929  0.857160  0.9524 00 


GRID 

POINTS! TWENTY  POINT 

GRID) 

0.048780 

0.097560 

0 .146340 

0.195120 

0.243900 

0 • 29268° 

0. 341460 

0.390249 

0.439020 

9.487890 

0. 536580 

0. 505360 

0.634140 

0.682920 

0.731  TOO 

0. 780480 

0. 829260 

0.878040 

0.926820 

0.97560 0 

SOLUTION  OF  THE  DISPERSION  MODE L E QUAT I  ON 
USING  DANCKWERTS  B.C. 

SEMI-ANALYTICAL  SOLUTIOh 


TIME 

0.1 

C.2 

0.3 


CONCENTRATIONS  AT  GR I 

TWENTY 

1  2 

0.4C8690  0 

0.597243  0 

0.706162  0 


0.520205 

0.678406 

0.767053 


D  POINTS 
POINT  GR 
3 

. 308197 
. 515606 
.642128 


ID 

4 

0.223190 

n. 436527 
n. 576722 


0.155321 
0. 362422 
0.511523 


0.4 

0.5 

0.6 

0. 824084 
0.863437 
0.391822 

0.777150 
0.826501 
0. 862280 

0. 726523 
0. 785990 
0. 829497 

0.673265 
0.742557 
0. 793888 

0.618328 

0.696753 

0.755758 

0.7 

0.912958 

0.889024 

0. 862239 

0.832882 

0.801097 

0.8 

0.929089 

0. 909497 

0. 887439 

0.863112 

0.336563 

C  •  9 

0.941645 

0.925471 

0. 907185 

0.886937 

0.864712 

1.0 


0.951574  0.938127  0.922883  0.905965  0.887318 


CONCENTRATIONS  AT  GRID  POINTS 
TIME  6  7  8  9  10 

_ 0.  1  0.104006  0.067112 _ 0.041796  0.025165  o. 014673 

C.2  C. 295171  0.235912  0.185113  0.142679  0.108087 

0.3  0.448104  0.387764  0.331530  0.280128  0.234003 

Q,4  0,562830  0,507790  '^.  454147  0.402713  0.354173 

0,5  0,649358  0,601113  0. 552769  ^.505043  0.458618 

0.6  0.715561  0.674104  0.631702  0.589038  0.546729 

f . 7 _ 0.  767282  0.  7  31826 _ 0 .  695184  0.657844  Q. 620343 

0.8  0.808090  0.777981  0.746599  0.714339  0.681669 

0.9  0.840743  0.815247  0.788516  0.760877  0.732730 

1.0  0.867132  0.845573  0.822880  0. 799324  0.775250 
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CONCENTRATIONS  AT  i 

GRID  POINTS 

TIME 

11 

12 

13 

14 

15 

0.1 

0.008299 

0.0045ol 

o. 002439 

0. 0012  71 

0. 000646 

0 .  2 

0.080524 

0. 059028 

3, 042604 

0.030302 

0.021263 

0.3 

0. 193319 

0.  158017 

0.  127382 

0.  102587 

0.081735 

0.4 

0. 309042 

0.267686 

0.230371 

0. 197269 

0.168469 

0.5 

0.414091 

0. 371983 

0. 332783 

0.296946 

0.264861 

0.6 

0.505352 

0.465457 

0. 427614 

0.392399 

0.360350 

o.T 

0. 583203 

0.546946 

0. 512147 

0.479410 

r  .-+4^315 

n.  8 

0 . 649043 

0.616932 

0.585875 

0.55o456 

.529239 

0.9 

0 •  704466 

0.676496 

0.649307 

0.623437 

0.599402 

1  .0 

o. 750988 

0. 726891 

0. 703388 

o . 68  09  59 

0 • 66^^63 

CONCENTRATIONS  AT  i 

GRID  POINTS 

TIME 

16 

17 

18 

19 

20 

0.1 

0.000321 

0.000156 

0.000075 

0.000037 

0.000021 

Q.2 

0.01 4758 

0.010193 

0. 0^71 1 1 

0.0051 94 

0.004257 

0.3 

0.064928 

0.051798 

0.042048 

0.035504 

0.032146 

0.4 

0. 144048 

0. 124083 

0. 108678 

0.098033 

0.092473 

Q .  5 

0.236941 

0.213600 

0.  195255 

0.  182404 

o.  175639 

0.6 

0.332056 

C. 3081  14 

0.289108 

0.275698 

0.268609 

0.7 

C. 422519 

C. 399686 

0. 331455 

0.368537 

0. 361695 

Q-Ji 

0.504876 

0.484033 

0 . 467330 

0.455464 

Q.4491 73 

0.9 

0.577818 

0.559307 

0.544440 

0.533860 

0.528249 

1.0 

0.641260 

0.625115 

0.612128 

0.6028  76 

0. 597969 
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SEMI -ANAL YT I CAL  SOLUTION 


CONCENTRATIONS  AT 

GRID  POINTS 

TEN 

POINT  GRID 

IUM E 

1 

2 

3 

4 

5 

0.1 

0.430437 

0.249537 

0. 127341 

0.058121 

0.024076 

0.2 

0.604319 

0.451520 

0. 314881 

0. 205828 

0.126674 

0.3 

0.707003 

0. 584317 

461551 

394038 

CL,  253152 

0 . 4 

0. 77537H 

0.676795 

0. 571764 

0.467913 

0. 371284 

0.5 

0.82  3811 

0. 744029 

0.655500 

0.563679 

0.473448 

C.6 

_ Q.  8595  30 

_Q. 794473 

0. 720226 

0.64071 2 

0.559699 

0.7 

0. 886636 

0.  833253 

0.771095 

0.703052 

0.631994 

0.8 

0. 907670 

0. 863650 

0. 811655 

0. 753878 

0.692497 

0.9 

C. 924285 

0.  887854 

0. 844384 

0. 795600 

r . T43144 

1.0 

0.937596 

0.907368 

0.871050 

0. 830042 

0. 785572 

CONCENTRATIONS  AT  i 

GRID  POINTS 

TIME 

6 

7 

8 

9 

10 

_ _ .0.1 

0.009171 

0.003251 

0.001080 

0.000344 

0.000121 

0.2 

0.073799 

0.040934 

0. 021766 

0.011519 

0.008928 

0.3 

0. 176695 

0.  119232 

0. 078560 

0.052683 

0.039884 

0.4 

286531 

0.216108 

0*  161141 

0.  123341 

0. 102668 

0.5 

0.389645 

0.315797 

0.254903 

0.211463 

0. 186821 

0.6 

0.461683 

0.410360 

0. 349545 

0. 305454 

0.279730 

0.7 

0.561934 

0.496312 

0.439112 

0.397463 

0. 37  2  b5  5 

0.8 

0.631035 

0.572492 

0. 520656 

0.483053 

0.460147 

0.9 

0.69009 2 

0.638934 

0. 593085 

0. 560163 

0.539612 

1.0 

0. 740318 

0.696262 

0. 656373 

0.628190 

0.610095 
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INTERPOLATED 

VALUES 

TIME 

1 

2 

3 

4 

5 

0.1 

0.413  74  4 

0. 230564 

0. 11  )3  96 

3.045855 

0. 016719 

0.2 

0.601113 

0.443873 

0. 304304 

0. 19^130 

0.115645 

0.3 

0 . 709129 

0.582959 

0.456994 

0.341 878 

0.244484 

Q.4 

0.779465 

0.678418 

0, 570744 

0.464206 

0. 365426 

0.5 

0.828338 

0. 743799 

0.656189 

0. 561940 

0.469508 

0.6 

0. 863758 

0. 797388 

0. 721392 

0.639809 

0.556727 

0.7 

0.890226 

0.335781 

0. 772215 

0. 702223 

0.629247 

0.8 

0.910484 

0.865522 

0. 812259 

. 752648 

0.689450 

0.9 

0.926287 

0. 883947 

0.844261 

0.793681 

0. 739448 

_ 1  «_0 _ 

CO.  938807 

—0.  90  7647 

0. 870099 

■■  ■0..  82  7271 

Q. 7BLQQ3 

TIME 

_ 

7 

8 

9 

10 

0.1 

0.00541 8 

0.001579 

0.000418 

0. 000102 

0. 000026 

0.2 

C. 064601 

0.033993 

0.016972 

0.0082  69 

0.004580 

0^3 

0.167554 

-0.  XI 0495 

0.  Q 7 0 8 6 9 

0.045819 

0.033346 

D. 4  0.279087  C. 207816  0.152819  0.114701  0.094483 

0.5  0.383724  0.308479  0.247047  0.202464  0.178097 

0.6  '".  476657  C. 403796  0.342340  Q. 296597  0.271192 

0.7  0.557168  0.490044  0.432283  0.388649  0.364191 

0.8  0.626011  0.566033  0.513766  0.473928  0.451469 

0.9 _ Q..6ii44-L9 _ Q^63XaZX _ 0.  58-5iqi _ CU-5503X6 _ Q.  53029.8 

0.733725  0.688278  "*.  648131  617263  0.599761 


1 .0 


I  i . 

•  V  If  . 

■  f  I  . 

I 

s.o 

# 

1  ' 

• 

*  V  . 

. 

. 

. 

. 

. 

a.o 

. 

i  u  . 

\ 

T .  0 

. 

8.0 

. 

. 

;  ■  ;  .  > 

P.D 

. 

\  r  . 

x^d\jae.Q . 

' 

_JQ»X 

3  IT 

. 

• 

. 

. 

>  .c 

I : . 

•  <  Vi. 

£. 

i  i  . 

f  . 

> 

*Y  V* 

e.o 

. 

• 

. 

. 

,  . 

’ 

r  ♦  . 

•-f 

8.0 

. 

\  '  ft  t  . 

. 

.0 

-- . 

i  -  .  . 

. 

• 

AS 

50C  I  A  1  ED  ERRORS 

TIME 

1 

2 

3 

4 

5 

0. 1 

-".016693 

-0.018973 

-0. 016945 

-0.012266 

-0.007357 

0 j  2 

"0*1101206 

-0.007647 

-0. 01 0577 

-n. 01 1 698 

-9.91 1029 

0.3 

0.002126 

-0.001358 

-9.004557 

-0.052160 

-9.008668 

0.4 

0.004093 

0.001623 

-0. 001020 

-0.003707 

-0.005856 

0.3 

C. 004327 

0.002770 

0. 000689 

-0.001739 

- ?. 0C3940 

0.6 

0. 004228 

0.002915 

0.001166 

-0.000903 

-C  .0  02  972 

0.7 

0.0n3590 

0.002528 

0.001120 

-0. 000829 

-0.002747 

Qj d 

0.002814 

0.001872 

0.000604 

—0.001230 

-9.003047 

0.9 

0. 002002 

0.001093 

-0. 000123 

-0.001919 

-0.003696 

1.0 

0.001211 

0.000279 

-0. 309951 

-0.002771 

-0.004569 

AS: 

SOC I  AT  ED  ERRORS 

TIME 

6 

7 

8 

9 

10 

0.1 

-0.003753 

-0.001672 

-9.000662 

-0.00 "242 

-0.000095 

0.2 

-0.009197 

-0.006941 

-0.004794 

-0.003250 

-0.904348 

0.3 

-0.009141 

-0.008737 

-0.007691 

-0.006864 

-0.006538 

0.4 

-0.  10  7444 

-0.00329 2 

-0.008322 

-0.008640 

-9.0081 85 

0.3 

-0.905921 

-0.00  7318 

-0.007856 

-0.008999 

-0.098724 

0.6 

-0. 00 59 26 

-0. 006562 

-0.007205 

-0.908857 

-0.008538 

0.7 

- " . 004766 

-0.006268 

-0,006829 

-0  ,  QJ0  8  8  14 

-0,008464 

0.8 

-0.005024 

-0.006459 

-0.006890 

-0. 009125 

-0.008677 

0.9 

-0.  ) 9 5 6 7 3 

-0.007963 

-0. 007384 

-0.009847 

-0.009314 

1.0 

-0.006593 

-0.007984 

-0.008242 

-0. 910927 

-0.010334 
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APPENDIX  E 

ONE  DIMENSIONAL  HOMOGENEOUS  CASE 
(Using  Higher  Order  Correct  Formulations ) 


The  partial  differential  equation  describing  this 

problem  is 


(i) 


(ii) 


9  c  9  2C  9  c 

9  6  a  a  „  2  “  9  z  ’ 

a  Z 

The  boundary  conditions  are: 
at  z  =  0,  c  =  1 

at  z  =  1,  |-£  =  0 

at  z  =  0, 

at  z  =  1 , 


c.  (0)  =  c  + 
in  z+o+ 

1°  =  o 

9  z  u* 


,  9  c  . 

a<  §T  > 


z-»-o' 


(The  higher  order  correct  finite  difference  formula¬ 
tions  as  suggested  by  H.S.  Price  are  shown  in  Figure  IV-a) . 


Semi  Analytical  Solution  A  five  point  and  a  ten  point  grid 
d-Te  used  to  get  the  solution  to  the  problem.  0  *  z  $  1.  The 
grid  spacing  is  as  shown  in  Figure  IV-b) . 

Interpolated  Values  The  results  of  the  five  point  grid  are 
derived  from  those  of  the  ten  point  grid  using  interpolation 
to  get  a  brief  idea  regarding  the  accuracy  of  the  solution. 
Deviations  (Errors) 

=  Interpolated  value  -  the  value  given  by  semi 
analytical  solution 
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C  SOLUTION  OF  THE  DISPERSION  MODEL  EQUATION-ONE 

C  DIMENSIONAL  HOMOGENEOUS  CASE 

USING  HIGHER  ORDER  CORRECT  MONOTONE  TYPE 
C  APPROXIMATIONS 

C _ _ _  INPUT  DATA 

C  N=  THE  NUMBER  OF  GRID  POINTS. 

C  NT  =  THE  TOTAL  NO.  OF  TIMES. 

C  MATRIX-THE  COEFFICIENT  MATRIX 

X=  the  DIMENSIONLESS  DISTANCES  OF  GRID  POINTS. 

C  C I =  THE  INITIAL  CONDITION  VECTOR . 

C_ .  Cl-  THE  BOUNDARY  CONDITION  VECTOR. 

C  T I ME=  THE  DIMENSIONLESS  TIMES. 

C  DX=  THE  GRID  SPACING. 

REAL  MATRIX(5,5),B(5,5),VECTOR(5,5),E(5),XX(5), 
1X1(5)*W(5,5) ,X(5 ) , VAR<5) ,CI (5) ,C1(5) ,CEVR( 15,5)  , 
2  T I  ME ( 1 5 )  »D,VICTQR{5,5)  »  X  2  (  5  )  ,  X  3  (  5  )  » A 

C _ READ  THE  DATA 

READ (  5,1)  N , N  T 

RE AD l 5  »  5  )  (  (MATRIX!  I, J)  ,J=1,N)  ,1  =  1, N) 

_ READ(  5,2  )  (X(J)  ,  J  =  1 ,  N  ) 

R  F  AD  (  5,2  )  ICKJ)  ,J=1,N) 

RE  AD  (  5 , 2  )  (C1U)  ,J=1,N) 

_  RE AD ( 5 , 3  )  (TIME(J),  J  ^1  ,JMT  ) 

RE  AD ( 5,4)  DX 
WR I TE ( 6  »  223 ) 

L I NE  S  =  9 

CALL  LINECT(LINES,4,2) 

WRITE(6,253)  DX 

_  WR I TE ( 6 , 22Q ) 

LINES  =9 

CALL  L I NECT ( L I NES , 4, 2  J 

_ JH  RITE(6,224) 

WR I TE ( 6 , 223) 

WRITE(6,231 ) 

CALL  LINECT ( LINES, 1,2) 

WRITE (6, 232)  (X(J),J=1,N) 

CALL  LINECT (LINES, 4, 2) 

WRI TE(  6, 22  3  ) 

UR I TE( 6,233 ) 

CALL  LINECT ( LINES, 2, 2) 

WR I TE ( 6 , 234)  (Cl ( J)  , J-l  ,N ) 

CALL  Li NECT ( LINES t 4, 2 ) 

WRITE (6,223  ) 

w  R  I  1  •  (  «  135) 

CALL  L  INECT(LINES,2,2) 

A= 1 2 . 0 

_ DO  30_  J=l,N 

30  Cl ( J ) =C 1 ( J ) / ( A*DX**2 ) 

WR I TE ( 6, 234 )  ( C 1 ( J ) »  J  =  1 » N  ) 

CALL  LINECT( LINES ,4,2) 
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WRITE(6,223) 

_ _  WRITE<6»  240 I 

DO  36  J  =  1  ,  N 
00  36  K=  1 »  N 

_ MATRI  X  (  J  ,_K)^ATR  IX<  J  ,K  )  /  (  A*DX**2_ ) 

36  CONTINUE 

C  FIND  OUT  THE  EIGENVALUES  AND  EIGENVECTORS  OF 

C  THE  COEFFICIENT  MATRIX  USING  S.S.P 

CALL  CS006AC MATRIX , B , VECTOR , E , XX , XI ,N,K, 3 , 
lS27n,£271) 

C _  THE  DESCRIPTION  OF  PARAMETERS 

C  MATRI X=  THE  ORIGINAL  COEFFICIENT  MATRIX  (N,N) 

C  B=  THE  MARIX  USED  IN  CALCULATIONS 

C  V  E  C  T  0  R  =  THE  EIGENVECTOR  MATR I  X  (  N ,  N ) *  STORED 

C  COLUMNWISE 

C  E=  THE  EIGENVALUES  IN  DESCENDING  ORDER 

£ _ (VECTOR  OF  LENGTH  N) _ 

C  XX,X1=  THE  VECTORS  OF  LENGTH  N,  USED  IN 

C  CALCULATIONS 

C _  N=  THE  DIMENSIONS  OF  MATRIX 

C  K=  THE  NUMBER  OF  EIGENVALUES  FOUND  (K  =  N, 

C  UNLESS  TOO  MANY  ITERATIONS 

C _ M±3 _ _ 

C  N I =2  70  (THE  STATEMENT  NO.  TO  WHICH  THE  CONTROL 

C  IS  TRANSFERRED  IF  N.LE.2) 

C  N2=  THE  STATEMENT  NO.  TO  WHICH  THE  CONTROL  IS 

C  IS  PASSED  IF  TOO  MANY  ITERATIONS  ARE  REQUIRED 

C  TO  FIND  THE  K»TH  EIGENVALUE 

_ DO  31  J  =  1  ,N _ 

CALL  L  INECn  LINES,  I  ,2) 

31  WRITE (6, 241 ) (MATRI X( J,K) ,K=1 ,N) 

_ WRI TE (6»  220 ) 

LINES=9 

CALL  LINECT(LINES,3,2) 

WRI TE (6,223 ) 

WRITE! 6,256) 

CALL  LINECT (LINES, 2, 2) 

WRITE (6,232)  (E(J),J=1,N) 

CALL  L INECT ( LINES, 3, 2 ) 

WRITE(6,223) 

WRI TE ( 6 , 257 ) 

DO  39  K= 1 , N 

CALL  L INECT ( L  INES , 3, 2 ) 

WR I TE ( 6 , 232 )  ( V  EC  TOR ( K , J )  ,  J  =  1 »N ) 

39  WRITE(6,223) 

DO  53  I =1 ,N 

_ DO  5  3  J  =  1,N 

VICTOR  (  I , J)  =  VECTOR ( I , J ) 

53  CONTINUE 

C  CALCULATE  THE  INVERSE  OF  THE  MATRIX  OF  EIGENVECTORS 
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E-4 


CALL  MINV(VICTOR,N,D,XX,Xl) 

CALL  CHECK! VECTOR, E, VICTOR,N ,W ) 

WRITE(6»220) 

L I NE  S=  9 

CALL  LINECT (LINES, 1,2) 

WRI Tt( 6, 244  ) 

DO  33  J=  1  ,  N 

CALL  LINECT ( LINES, 4, 2) 

33 

WRITE (6, 232)  (W!J,K),K=1,N) 

WR I TE I  6 , 223  ) 

CALL  SEM IAN! N. VAR, VECTOR. Cl .Cl .  F 

, TIME, NT, 

1CEVR, VICTOR) 

WRITE! 6, 223 ) 

WRITE(6»225) 

WR I T  E ! 6 , 245 ) 

WRITE(6,223) 

WRITE (6, 246 ) 

34 

WRI TE(6, 243) 

DO  34  J  =  1  ,  NT 

WRITE! 6, 251 )  TIME ( J  )  ,  ! CE VR ( J ,K ) , K= 1 

,5) 

270 

STOP 

WR I TE ( 6 , 272 ) 

STOP 

271 

C 

WRI TE ! 6 , 273 ) 

STOP 

FORMAT  STATEMENTS 

1 

2 

3 

FORMAT! IX, 21 4) 

FORMAT !  1X,F13.8,  4F14.8) 

FORMAT ( 1 1F7. 3) 

4 

5 

220 

FORMAT! 1X,F16.8) 

FORMAT ( 10F8. 5) 

FORMAT! 1 H  2 ) 

221 

222 

223 

FORMAT ! 1H,10X,8H  ..CONTD) 

FORMAT ! 1 H , / / ) 

FORMAT ( 1H,/)  _ 

224 

225 

FORMAT ( 1H , 18 X, 28H  CONCENTRATION  PROF  I LES-ONE- , 

1 1 1HD IMENSIONAL/25X, 22H  HOMOGENEOUS  MEDIUM) 

FORMAT! 1H,2°X, 32 H SOLUTION  OF  THE  DISPERSION  MODEL, 

231 

232 

18HEQUATI0N/2QX, 19H USING  ORDINARY  B.C. 
FORMAT ! 1H,3°X,12H  GRID  POINTS) 

FORMAT ! 1H, 10X,5F1 1 .6 ) 

) 

233 

234 

235 

FORMAT ! 1H, 30X,25H  INITIAL  CONDITION  VECTOR) 

FORMAT! 1H,10X,5F12.4) 

FORMAT ( 1H,30X,26H  BOUNDARY  CONDITION  VECTOR) 

2  40 
241 
244 

- - 

FORMAT !1H,30X,27H0RIGINAL  COEFFICIENT 
FORMAT ( 1H, 10X,  5F8.2) 

FORMAT  1 1 H  .  20  X ,  35H  CHECK  OF  s £ ^  j *7  AR  XX 

MATRIX) 

TRANSFORMATION) 

2 45  FORMAT ! 1H,30X,25H  S EMI -ANALYT I  CAL  SOLUTION) 

246  FORMAT ( 1H» 25X, 29HCONCENTRATI ONS  AT  GRID  POINTS) 
248  FORMAT (lH»15Xy  5h  TIME*  5X,  2H  It  9X,  2H  2,  8Xt 
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12H  3,  8X,  2H  4,  8X,  2 H  5) 

251  FORMAT ClHt  15X,  F6.1,  2X,  5F10+6) 

253  FORMAT ( 1 M  » 10X* 13HGRIO  SPACING=,  F11.6) 

256  FORMAT ( lHt20X,19H  EIGENVALUES  OF  THE/20X, 
1.2?  HO  R  I G  INAL  COEFFICIENT  MATRIX) 

25  7  FORMAT ( 1 H  »  2  0  X  »  2  0  H  EIGENVECTORS  OF  THE/20X 
127HORIGINAL  COEFFICIENT  MATRIX) 

272  FORMAT ( 1H, 10X.6HN.LE . 2 i 

273  FORMAT  (1M» 10X* 19HTQ0  MANY  ITERATIONS) 

END 
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C  SOLUTION  OF  THE  DISPERSION  MODEL  EQUATION-ONE 

C  .  D I  MENS  IONA  L  HQMOG ENEOUSCASE  _ _ 

r.  US  I NG  '  HI GHER  OR  DE R  CORRECT  MONOTON E  T  Y PE 

C  APPROXIMATIONS 

C _ INPUT  DATA 

C  N-  THE  NUMBER  OF  GRID  POINTS. 

C  NT  =  THE  TOTAL  NO.  OF  TIMES. 

C _ MAT  R I X=THE  COEFFICIENT  MATRIX _ 

C  X=  THE  01 MENS I ON LESS  6Tsf ANCES OF GRID  POINTS . 

C  C I =  THE  INITIAL  CONDITION  VECTOR. 

C  C 1 =  THE  BOUNDARY  CONDITION  VECTOR. 

C  T I  ME =  THE  DIMENSIONLESS  TIMES. 

C  DX=  THE  GRID  SPACING. 

REAL  MATRIX (10,10) ,B( 10,10 ) , VECTOR  HO, 10 ) , E( 10) , 
1XXI 10 1 * XI  ( 10 ) ,  W(  10  f  10 1 1  X(  10 1 ,  VAR(  10 )  , C I  (  10 1  ? 

2C1( 10) ,CEVR( 15,10) ,TIME( 15) ,D, VICTOR! 10,10), 
3X2(10)  , X3( 10  )  , A 
C  READ THE  DATA 

RE  AD (  5,1)  N, NT 

REAO( 5*  5 )  (  ( MATR I X(  I , J ) , J  =  1 *N )  ,1  =  1,  . ) 

READ!  5,2  )  (X(J),J=1,N) 

RE  AD (  5,2  )  ( C I ( J ) , J  =  1 , N ) 

_ READ  (  5,2  )  (  Cl  (  J  )_,  J_=  1  t_H  ) 

READ ( 5,3)  (TIME(J),  J  = 1 , N  T ) 

RE  AD ( 5 , 4 )  DX 
WRITE(5,?23) 

L!NES»9 

CALL  LINECT( LINES, 4, 2) 


WRI TE ( 6 , 253 )  DX 

WRITE*  6,220 ) 

LINES  =9 

CALL  L INECT ( LINES ,4, 2 ) 

WRI T  E ( 6 ,  224) 

WRITE (6, 223) 

WRI TEC  6 , 231  ) 

CAL L  LI M ECT ( L I N E  S , 1 , 2  ) 

WR I TE ( 6 , 2  32  )  <X(J),J=1,N) 

CALL  LINECT (LINES, 4, 2) 

WR I TE ( 6 *  223 ) 

WRI TE ( 6,233 ) 

CALL  LINECT(LINES,2,2) 

WRITE (6,234)  ( C I ( J )  ,  J  =  1  *  N  ) 

CALL  LINECT ( LINES»4,2) 

WRITE! 6,223 1  _ 

WRITE (6,235 ) 

CALL  LINECT(LINES,2,2) 

A= 1 2 . 0 
DO  30  J=i,N 

3r'  Cl ( J ) =C1 ( J ) / ( A*DX**2 ) 

WRITE! 6*234)  ( C 1 ( J )  » J  =  1  ♦  N  ) 
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CALL  LINECT ( LINES  »  4, 2) 

_ _ WRIT-  (6,225) 

WR I T  F ( fc , 240 1 
on  36  J  =  1  » N 

_ DO  36  K=1,N _ _ _ 

MAT  R I  X  <  J  ,  K  ) =  MATR I  X ( J , K ) / ( A*DX**2 ) 

36  CONTINUE 

C  FIN D  OUT  THE  EIGENVALUES  AND  EIGENVECTORS  OF 

c  r  IF  COEFFICIENT  MATRIX  USING  S.S.P 

CALL  CS006A( MATRIX, B, VECTOR, E,XX,X1,N, K, 3, 

_ 1 £?  7° , &  27  1 ) _ _ _ 

C  THE  DESCRIPTION  OF  PARAMETERS 

C  MAT  R I X  =  THE  ORIGINAL  COEFFICIENT  MATRIX  (N,N) 

C  B=  THE  MAR  IX  USED  IN  CALCULATIONS 

C  VECTOR*  THE  EIGENVECTOR  MATR I X ( N, N) *  STORED 

C  COLUMNWISE 

_C _ E-  THE  EIGENVALUES  IN  DESCENDING  ORDER _ 

C  (VECTOR  OF  LENGTH  N) 

C  XX,X1=  THE  VECTORS  OF  LENGTH  N,  USED  IN 

C  CALCULATIONS  _  _  _ _ 

C  N=  THE  DIMENSIONS  OF  MATRIX 

C  K=  THE  NUMBER  OF  EIGENVALUES  FOUND  (K=N, 

_C _ UNLESS  TOO  MANY  ITERATIONS _ 

C  M=3 

C  Nl=  2 70  (THE  STATEMENT  NO.  TO  WHICH  THE  CONTROL 

C  IS  TRANSFERRED  IF  N.LE.2)  _ _ _ 

C  N?  *  THE  STATEMENT  NO.  TO  WHICH  THE  CONTROL  IS 

C  IS  PASSED  IF  TOO  MANY  ITERATIONS  ARE  REQUIRED 

_C _ TO  FIND  THE  K  *  TH  EIGENVALUE _ 

DO  31  J= I , N 

CALL  LINECT (LINES, 1,2) 

_ _ 31  WR  I  T  E  (  6 , 2h1  )  (  MATR  I  X(  J,K)  ,  K  =  1  ,  N  ) _ 

WRITE (6, 220 ) 

LINES=9 

_ CALL  LINECT (LINES, 3, 2)  _ 

WRITE ( 6,223) 

WRI TF ( 6, 256 ) 

CALL  L  INECT ( L INES , 2 , 2 ) 

WRITE <6, 232 )  (E(J),J=1»N) 

CALL  L  INECT (LINES, 3, 2) 

_ WRI TE (6,223 ) 

WRI TE ( 6, 257 ) 

DO  39  K=  1  ,  N 

CALL  LINECT (LINES, 3, 2) 

WRITE! 6, 232 )  (VECTOR! K, J ) , J=1 »N) 

39  WRITE(6,223) 

_ DO  5  3  I  =  1 , N _ 

DO  53  J=1,N 

VICTOR ( I , J) = VECTOR  (  I  ,  J  ) 

53  CONTINUE 
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CALCULATE  THE  INVERSE  OF  THE  MATRIX  OF  EIGENVECTORS 

,  . . CALL  M  I  N V ( V  I C  T  C R f N , D , X  2  ,  X  3 ) 

CALL  CHECK (VECTOR, 0 , V  I CTOR , N , W  ) 

WRITE! 6,220) 

_ L I NE  S  =  9 _ 

CALL  L I NECT ( L  INES , 1 , 2 ) 

WRITE! 6,244) 

U. _ _ il  00  3  a  isJUH 

CALL  Li NECT ( LINES ,4, 2) 

WRITE<6,232)  (  W  (  J  ,  K  )  ,  K=  1  ,  N  ) 

33  WRITE (6,223) _ 

CALL  SEMIAN(N, VAR, VECTOR, Cl, Cl,  E  , TIME, NT, 

1CEVR,  VICTOR) 

MR1TJEI 6, 22Q) 

WRITE ( 6, 225 ) 

WR T  T E ( 6 , 245 ) 

, _ WRITE!  6,223  ) _ 

WRITE! 6,246 ) 

WRITE(6,243) 

_ _ 00  34  J=1 1  NT 

34  WRITE (6, 251 )  TIME(J),  (CEVR(J,K), K= 1,5) 
WRITE(6,223) 

_ WRITE! 6,246) _ 

WRITE!6,249) 

DO  3  5  J=  l , NT 

3  5  WRITE (6, 251)  TIME ( J ) ,  (CEVR( J,K) ,K=6,10) _ 

STOP 

270  WRI TE ( 6 , 272 ) 

_ STOP _ _  _ _  _  _ 

271  WRITE(6,273) 

STOP 

C  _  FORMAT  STATEMENTS _ 

1  FORMAT! I  X, 2 14) 

2  FORMAT! 10F8. 5) 

. _ 3  FORMAT  1  1  1F7 . 3) _  _  _ 

4  FORMAT ( IX, FI  6.8) 

5  FORMAT ( 10F8. 4) 

220  FORMAT (1H2) 

221  FORMAT ( 1H , 10X, 5h  .  .  CON TD ) 

222  FORMAT ( 1H,// ) 

223  FORMAT  !  1  H  ,  /  ) _  _  _ 

224  FORMAT ( 1H, 13 X,28H  CONCENTRATION  PROF  I L t S -ONE- , 

1 1 1HD I  MENS IONAL/25X , 22H  HOMOGENEOUS  MEDIUM) 

225  FORMAT ( 1H,20X,32HS0LUT ION  OF  THE  DISPERSION  MODEL, 
18HEQUATION/20X, 19HUSING  ORDINARY  B.C.) 

2  31  FORMAT ! 1H, 3  7  X  » 1 2  H  GRID  POINTS) 

232  FORMAT!  1H, IPX, 5F11.6)  _  _  _ _ 

r  233  FORM AT t 1 H  ,3° X ,2 5H  INITIAL  CONDITION  VECTOR) 

234  FORMAT ( 1H, 10X,5F12 .4 ) 

235  FORMATi 1H, 30X,26H  BOUNDARY  CONDI TI ON  VECTORS 
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240  FORMAT ( 1 H , 30 X , 27HOR I G I NA L  COEFFICIENT  MATRIX) 

241  FQRMAT(lHflOXilOF6«l)  _ 

244  FORMAT (1H, 20 X ,  3  5H  CHECK.  OF  SIMILARITY  T  R  ANSFORMAT I  ON) 

245  FORMAT! 1H,30X,25H  SE  M  I -ANAL  VT  I  CAL  SOLJTIUN) 

246  FORMAT  ( I H , 2  5 X ,  29HCONCFNTRAT  I  ONS  AT  GRID  POINTS) 

248  FORMAT! 1H, !  5X  ,  5H  TIME,  5X,  2H  1,  9X,  2H  2,  8X, 

12H  3,  8X ,  2H  4,  8X,  2H  5) 

245  FORMAT (IHt 15Xt  5H  TIME,9X,2H  6,8X, 2H  7,8X,2H  8, 

18X» 2H  9,  8X*  2H10) 

251  FORMAT ( 1 H »  15X,  F6.1,  2X,  5F10.6) 

253  FORMAT ( 1 H , 1°  X , 1 3HGR I D  SPACING=,  Fll .6) _ 

256  FORMAT!  lH,2r'X,  19H  EIGENVALUES  OF  THE/20X, 

127HORIGINAL  COEFFICIENT  MATRIX) 

257  FORMAT C lH«20Xf 20H  EIGENVECTORS  OF  THE/2CX,  _ 

127H0RIGIMAL  COEFFICIENT  MATRIX) 

272  FORMAT! 1H ,10X,6HN.LE. 2 ) 

273  FORMAT!  1H,  10X,  19HTCJG  MANY  ITERATIONS)  


END 
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CONCENT  RAT  ION  PROF  I LES-ONE-D I  MENS  I UNAL 
HOMOGENEOUS  MEDIUM 


0.095240 

GRID  POINTS 
0.190480  0.285720 

0.380960 

0.476200 

C. 571440 

0.666680  0.761920 

0.857160 

0.952400 

0.0 

 0.0  

INITIAL  CONDITION  VECTOR 
0.0  0.0  0.0 
0.0  0.0  0.0 

o  o 

a  . 

o  o 

BOUNDARY  CONDITION  VECTOR 

27.2990  -2.7124  0.0  0.0  0.0 

0.0  0.0  0.0  0.0  0.0 


ORIGINAL  COEFFICIENT  MATRIX 


4.  1 

-16.  8 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.  0 

0.0 

6.4 

55.  1 

-22.4 

1.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2.7 

-36.4 

55.1 

-22.4 

1.0 

0.0 

0.0 

0.0 

0.0 

0.0 

C  ,0 

2,  7 

-36.4 

55.1 

-22.4 

1.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2.7 

-36.4 

55.1 

-22.4 

1.0 

0.0 

0.0 

0.0 

0.0 

O.C 

0.0 

2.7 

-36.4 

55.  1 

-22.4 

1.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2.  7 

-36.4 

55.1 

-22.4 

1.  G 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2.7 

-36.4 

55.  1 

-22.4 

1.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2.7 

-36.  4 

55.  1 

-21.4 

o.c 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2.7 

-35.4 

32.7 
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EIGENVALUES  OF  THE 


ORIGINAL  COEFFICIENT  MATRIX 
112.101074  102 .556976  88.418991  71.842300  54.941483 
39. 200470  25,443909  14.351689  6.569824  2.377954 
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EIGENVECTORS  OF  THE 

ORIGINAL  COEFFICIENT  MATRIX 

0.016973  -0.030242  0.047206  -0.067170 
0.093932  -0.085530  C. 065185  -0.040252 

L.  •  J  1  1  7  “ 

-0.085875 

0.018745 

-0 .068706 
0.027383 

0.105235 

-0.094972 

-0.124539 

0.115421 

0.110934 

-0.C89918 

0.055429 

0.046552 

C. 137568 
-0.138490 

-0. 166195 
0.020865 

0.109870 
0. 104256 

0.017926 

-0.136328 

0.  135291 

0. 084928 

-0.222538 
_ -0 .124987 

0.173399 

0.179728 

0. 034768 
0.003109 

-0.195730 

-0.160162 

-0. 108149 

0.  135026 

0.316610 
0. 151956 

-0.088619 

0. 190363 

-0.232363 
-0. 162632 

0.138914 

-0.138719 

-0. 205179 

0. 197106 

-0.406660 
C. 290904 

-0.099124 

-0.053376 

0.298734 

-0.300517 

0.199378 

-0.052341 

0. 203525 

0.269944 

0.472021 

-C.07745C 

0.350453 

-0.374510 

-0.078042 

-0.283529 

-0.397378 

0.106383 

0.305848 

0. 350091 

-0.483906 

-0.516660 

-0.565686 

-0.380644 

-0.367767 

-0.030099 

0.016633 

0.322362 

-0.372136 

C. 430994 

0.406005 

-0.174397 

0.602128 

0.131264 

0.689754 

0.402997 

0.632619 

0.549914 

-0.446527 

0. 502017 

-0.197789 
L  0.737943 

-0.327520 

0.780681 

-0.456777 
0. 781722 

-0.571934 

0.711643^ 

0.666797 
_ 0.547702 
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CHECK  OF  SIMILARITY  TRANSFORMATION 

44.097900 

-16.799454 

0.000079 

-0.000031 

0.000022 

0.000022 

-C. 000020 

-0.000004 

C. 000018 

-0.000003 

-36.39830C 

55.122498 

-22.408096 

0.962735 

-0.000028 

0.000058 

-0.000075 

0.000023 

-0.000018 

-0.000006 

2.712015 

-36.398483 

55.122742 

-2 2.408295 

0.962809 

0.000009 

0.000035 

0.000019 

0.000011 

0.000006 

0.000045 

2.712020 

-36. 398453 

55.122726 

-22.408295 

0.962786 

-0.000016 

0.000000 

0.000010 

0.000009 

-Q ^000120 

0.000216 

2.711850 

-36.398239 

55.122528 

-22.408112 

0.962710 

0.000063 

-0.000052 

0.000005 

-O.OOOOC8 

0.000045 

0.000042 

2.712017 

-36.398392 

55.122711 

-22.408264 

0.962815 

-0.000009 

-0.000005 

0.000011 

0.000013 

0.0C0049 

0.000032 

2.711937 

-36.398422 

55.  122726 

-22.408264 

0.962829 

0. 000001 

0.000C29 

0.000013 

-0.000103 

-0.000040 

0.000055 

2.712003 

-36.398407 

55.122772 

-22.408279 

0.962803 

0.000117 

-C.C00097 

C. 000017 

-0.000011 

-0.000029 

0.000042 

2. 711966 

-36.398453 

55. 122726 

-21.436279 

-0.000203 

0.000009 

0.000012 

0.000C35 

-0.000011 

0.000026 

0.000C71 

2. 711989 

-35.436539 

32. 724518 
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SOLUTION  OF  THE  DISPERSION  MODEL EQUAT ION 
USING  ORDINARY  B.C. 

SEMI-ANALYTICAL  SOLUTION 


CONCENTRAT IONS  AT  GRID  POINTS 


TIME 

1 

2 

3 

4 

5 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.1 

0. 768596 

0. 51  1058 

0.288764 

0.137029 

0.053947 

0.2 

0.881985 

0. 728629 

0. 558586 

0. 394602 

0.255489 

0.3 

0.926991 

0.826915 

0. 705505 

0.572762 

0 • 440634 

0.4 

0.950738 

0. 881351 

0.793119 

0.690146 

0.578828 

0.5 

0.965072 

C. 915059 

0. 849574 

0.770042 

0.679711 

0.6 

0.974442 

0.937449 

0. 888040 

0.826434 

0.754214 

0.7 

0. 9809C5 

0.953067 

0.915353 

0. 867470 

C. 810149 

0.8 

0.985539 

0.964359 

0.935353 

0.898048 

0.852749 

0.9 

0.988958 

0.972738 

0. 950332 

0.921236 

0.885547 

_ I.C 

0.991533 

0.979076 

0. 961735 

0.939041 

0.910994 

CONCENTRATIONS  AT  < 

GRID  POINTS 

TIME 

6 

7 

8 

9 

10 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

C.  1 

0.017281 

0.004329 

0.000762 

0.000053 

-0.0C0026 

0.2 

0.150957 

0.081094 

0.039497 

0.017585 

C. 0081 99 

0.3 

0.320183 

0.219328 

0.141959 

0.088804 

0.060177 

0.4 

0.466820 

0.361881 

0.271105 

0.201137 

0. 160016 

0.5 

0.583434 

0.487360 

0.398774 

0.326481 

0.282249 

0.6 

0.674449 

0.591811 

0. 512800 

0.446281 

0.4C4728 

0.7 

0.745379 

C.6767C4 

0.609602 

0.5520  73 

0.515714 

0.8 

0.800790 

0. 744875 

0.689491 

0 • 64 1 463 

0.610899 

0.9 

0.844190 

0. 799244 

0.754322 

0. 715068 

0.689981 

1.0 

0.878254 

0.842425 

0. 80b393 

0.774725 

0. 754431 
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CONCENT  RAT  ION  PROF  I L ES -ONE-D I  MENS  I  ON AL 
HOMOGENEOUS  MEDIUM 


GRID  POINTS 

0.0952 AC _ Q. 190480  0.28572 0  0 . 3809  6  0 0. A  762  00 

0.571AAC  0.666680  0.761920  0.857160  0.952A00 


INITIAL 

CONDITION 

VECTOR 

0.0 

0.0 

0.0 

0.0 

0.0 

(LA 3 _ 

0.0 _ 

0.0 

_ 0.0 

0.0 

BOUNDARY 

CONDITION 

VECTOR 

8.8062 

-0.8750 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

ORIGINAL  COEFFICIENT  MATRIX 


25.6 

-16.8 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

O.C 

0.0 

-3A.6 

55.  1 

-22.  A 

1.0 

0.0 

0.0 

0.0 

0.  0 

0.  c 

0.0 

2.7 

-36.  A 

55.1 

-22.  A 

1.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2.7 

•  3  6  »  4 

-22.  A 

1.0 

.  0.0 

0.0 

a.o 

0.0 

0.0 

0.0 

2.7 

-36.  A 

55.1 

-22.  A 

1.0 

0.0 

0.0 

0.0 

o.c 

0.0 

2.7 

-36.  A 

55.1 

-22. A 

1.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2.7 

-36. A 

55.1 

-22.  A 

1.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2.7 

-36.  A 

55.  1 

-22.  A 

1.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2.7 

-36.  A 

55.  1 
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EIGENVALUES  OF  THE 


ORIGINAL  COEFFICIENT  MATRIX 
112. 009277  102.172089  87.492706  70.087936 

35.612411  21.742416  11.351755  4.804333 


EIGENVECTORS  OF  THE 

ORIGINAL  COEFFICIENT  MATRIX 

0.012303  -0.021567  0.032781  -0.045738 

_ 0.073653  -0.C84104  0.087779  -0.081985 

-0.063276 

-0.043874 

0.098295 

-0.019339 

-0.120761 

0.074477 

0.121106 

-0.101513 

0.  132289 
-0.153705 

-0. 165367 
0.  108966 

0. 124363 
0.005389 

-0.018187 

-0.105016 

-0.218086 

-0.044376 

0.  180545 
_Q_,  187538 

0.011053 
-0. 109499 

-0.182667 

-0.081791 

0.313667 

0.215768 

-0. 102186 
0.09271 2 

-0.219294 

-0.225165 

0.173123 

-0.021907 

-0.405712 
0.23386 2 

-0.084109 

-0.170255 

0.309394 

-0.268513 

0.161338 

0.080551 

0.473150 

-0.174131 

0.340202 

-0.393957 

-0. 104371 
-0.167636 

-0.408558 
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SOLUTION  OF  THE 

DISPERSION  MODELEQUAT ION 

USING  DANCKWERTS 

B.C. 

SEMI 

-ANALYTICAL  SOLUTION 

_ CONCENTRATIONS  AT 

GRID  POINTS 

TIME 

1 

2 

3 

4 

5 

C.O 

0.0 

0.0 

0.0 

0.0 

0.0 

0.1 

0.421237 

0.256385 

0. 134540 

0.060021 

0.022419 

0.2 

0. 593183 

0.456578 

0. 327679 

0.217918 

0. 133593 

0.3 

0.697079 

0. 588243 

0.475241 

0.366089 

0.267957 

0.4 

0.  767475 

0.680O63 

0.585624 

0.487329 

G. 391228 

0.5 

0.818023 

0. 748356 

0.669428 

0. 584181 

C. 496380 

0.6 

0.855651 

0. 799406 

0. 734131 

0.661500 

0.584035 

0.7 

0.884371 

0.838736 

0. 784829 

0. 723551 

0.656582 

Q  •  8 

0.906706 

0. 869540 

0. 825046 

0.773665 

0. 716520 

0.9 

C. 924329 

0.893980 

0. 857270 

0.814373 

0.766045 

1  .  C 

0.938394 

0.913569 

0. 883298 

0. 847599 

0.806992 

CONCENTRATIONS  AT  i 

GRID  POINTS 

TIME 

6 

7 

8 

9 

10 

0.0 

o 

. 

o 

0.0 

0.0 

0.0 

0.0 

0.1 

0. 006853 

0.001639 

0.000273 

0.000017 

-0.000008 

0.2 

0.075152 

0.033629 

0.018078 

0.007755 

0.003489 

0.3 

0.  185817 

0. 121844 

0.075685 

0.045508 

0.029805 

0.4 

0.302418 

0.225014 

0. 161976 

0.  11  5625 

0.089211 

0.5 

0.410224 

0. 330029 

0.260177 

0.205582 

0. 173079 

0.6 

0.504997 

0.428332 

0. 358808 

0.302536 

0.268226 

0.7 

0.586419 

0. 516498 

0.451448 

0. 397654 

0.364387 

0.8 

0.655533 

0.593627 

0. 535051 

0.485924 

0.455271 

0.9 

0.713782 

0.663042 

0. 608597 

0.565027 

0.537685 

1.0 

0. 762649 

0. 716629 

0.672201 

0.634309 

0.610435 
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C  PROGRAM  FOR  INTERPOLATION 

C  INTERPOLATE  THE  VALUES  OF  CONCENTRATION 

C  CORRESPONDING  TO  ONE  GRID  FROM  THOSE 

C  OF  A  HIGHER  POINT  GRID 

£ _ N=. THE  NUMBER  OF  GRID  POINTS  (  THE  VALUES _ 

C  TO  BE  INTERPOLATED) 

C  NN=  THE  NUMBER  OF  GRID  POINTS  (  GREATER  THAN 

C  _  ABOVE  ) . . . . . ... . . . . . . 

C  NT=  THE  TOTAL  NUMBER  OF  TIMES 

C  GR I DX=  THE  DIMENSIONLESS  DISTANCES  OF  GRID  POINTS 

£ _ 1CQR&ESPQNPING  TO  THE  VALUES  TO  BE  INTERPOLATED) 

C  GR I DN=THE  DIMENSIONLESS  DISTANCES  OF  GRID  POINTS 

C  (CORRESPONDING  TO  THE  HIGHER  POINT  GRID) 

REAL  GR I DX ( 5 ) , GR I DN (  10 ) » T I  ME  ( 15) ,CONC<  ISjSJU _ 

ICEVR( 15,  5) ,  W  G  R  K  ( 150) 

REAL  CINTPt 15,5) , ERROR ( 15,5) ,X,F( 150) ,ARG( 10) , 

1Z(1Q),V,YV( 1 C ) t  VAi  (150) _ 

INTEGER  I  ,J,N,NN,NT 
RE AD ( 5 , 1 )  N,NN,NT 

. RE  AD  (5, 2)  tllllEU ) ,  J=  1 ,  NT ) 

DO  3  J=1 , NT 

READ<5,6)  ( CEVR( J ,K) ,K=1 ,NN) 

3  CONTINUE _ _ _ 

DO  5  J= 1 »  NT 

RE AD (5,6)  ( CONC ( J , K ) ,K=1,N) 

_ 5  CONTINUE 

READ ( 5 , 1 2 )  ( GR I DX ( J ) , J= 1 , N ) 

READ(5,13)  ( GRIDN ( J ) , J= 1 , NN ) 

_ WRI  TE  (  6 , 220  ) _ _ 

L I NE  S= 1C 

CALL  LINECT (LINES, 4, 2) 

_ m I T  EC  6. 264) _ 

CALL  L I  NEC  T ( LINES, 3, 2) 

WR I TE ( 6, 265 )  ( GR  I  DX ( I ) , I  =  1 , N ) 

_ WRITE  (  6, 222  ) _ _ _ 

WRITE( 6,266) 

CALL  LINECT (LINES, 3, 2) 

_ WRITE(  6,265)  ( GR I DN ( I  )  ,  I  =  1 , NN ) 

WRITEC6, 223) 

^RITE(6,225) 


LIN£_S=9 

CALL  LINECT (LINES, 4, 2) 

WR I T  E ( 6 , 245  ) 

WR I T  E (  6 , 223 ) 

WRI  TE  (t>,246) 

WRI TE ( 6 , 247 ) 

WRITE(6,248) 

DO  7  J  =  1 » NT 

7  WRITE(6,251)  TIMECJ),  ( CE VR ( J , K ) , K- 1 , 5 ) 
WRI TE(6,223) 


V 

01  So  TUI  ns  $  JHO I H  A  SO 
J  V  'HT  )  2  I0‘  I  10  3'  '.UH  i)  T 

<Q3TAJOSfl3TMI  38  OT 

(  ;  V  M  A 

c3*  IT  SO  fl36*Ui1  J  A  TUT  3HT  =TH 
I  c  TJ  2i3MAT2i(]  &23JHOI2HSSQ  3Hr=XOIflO 

r 

!  1  '<  •  »  23 J.  SS  2  2  ,H  1 2.  •  Hi  SHT^QIflO 

- 

«  I  '  t  i  I  )  •  i 

(  2i )  ->i  -  s  ,  1 2 ,  <-  n  .  vsor 

•  ‘  ■  »  H.x,(?,eil  « (2,21 

<  : )  j  » (  •  rii  )\: 

TtS  .  ttf.l,  i  3^:*t/i 
T  \A »  :SH  (  1 ,2  KJA3H 

u  ,  ■  =  L  ,  a  )  .  ■  )  !  ,r| 

i  T  I  -L  U 

(i  »  I  Vv*  IX.tl  V  Ij)  (  3,2)'  AS  - 

SUMlTirtOX  £ 
TIS  I -L  2  UJ 
(  r  I  */i  t  Ol »  L  )  OiS  )  (SO  1 A  S 

3UH1TUQD  £ 

(  ,I^l,lt)X  I  .  )  (  S  I  r  2  )  3 

I  »  I -L  ,  (  L)HJI>  *  )  I;  I,c)l  i  >i 

K  S,;  HU  w 
01  -2  31/1 1  J 
(  1  J  )  1  >3.11  j  J  J  A  ^ 

<  Sr  )  M 

(  r  £»23U  J)T3  m  \  J  J  JA 3 
(  r  1  s  I  t  (  I  )  X<  ISO)  (  2  S  ,d  )  j  r  I  Hrf 

(SSSro)  t;  , 
l<  L'S  )  “  T  I  fl* 

IS  -  r  2  3  rl  i  I  )  T  J  •/  I  J  J  J  /.  0 
(  r  i  -  I  t  (  I  )k  .1  )  {  (  S  >)  T  I>S 

<  1  t  )  II  ■ 

(<  Sr  )  TH* 

P=^3*U  J 

(Sr  r  2  .  IJ)  Jj/.  J  J  J  A  f 
(CASrc)  T  I  >1 

(f  Srr  )31  IS, 

(  t>S,  J)  T  1  ■ 

( N  AS  r  '  )3T  l** 

1‘  ;»S  »•'  HTIfll 

v1,I  =  L  V  p 

S' ,  H/i,  H,  *  )  .  *  j)  t(t)3MlT  ( I  S  r  d  )  JT ] Srt  V 

(£SL ,d)3T  IS* 


n  o  o  o  o  o 


E-25 


WR I T  E ! 6 , 246 ) 

_ WR I T  E ( 6 , 249 ) 

DO  8  J= 1 , NT 

8  WRITE(6,251)  TIME ( J I » (CEVR( J »K) »K=6 f 10 ) 

WRI TE ( 6>  220  ) _ 

L  I NE  S=  10 

CALL  L  INECT(LINES,3,2) 

_ WRI TE ! 6  »  245 )  _ 

WRITE!6,223) 

WRI TE ( 6 »  246 ) 

WRI TE ( 6 »  250  ) _ 

WRITE! 6, 248) 

DO  9  J  =  1 »  NT 

„9_  WRITE (6, 251)  TIME! J),  iCONC! J,K) , K=l,5) 

00  14  J  J  =  1 »  N  N 
Z!JJ)=GRIDN(JJ) 

14  CONTINUE _ 

THE  TABLE  OF  L  VS  F  READY  FOR  ONE  VALUE  OF  TIME 


ORDER  THE  TABLE  USING  S.S.P 


I  ROW  =  10 
I C  C  L  =  1 
ND I M= 10 
DO  19  J= 1 »  NT 
DO  19  1=1, N 
X=GR IPX! I ) 

DO  31  J J  =  1 »  NN 
F ! J  J ) =CE VR ! J  »  J J ) 

31  CONTINUE _ _ _ 

CALL  ATSG!X,Z,F»W0RK,I ROW, ICGL , ARG , V AL , NDI M ) 

EPS=0. 0C001 

CAl  L  ALI  (X,  ARGtVAL,  Y,NDIjji£P.S,_LERJ 
YY ! I )  =  Y 

CINTP! J, I )  =  YYl  I  ) 

19  CONTINUE 

WRITE(o,223) 

L  I  NE  S=  9 

CALL  L  INECT!  LINES, 4,2) _ _ 

WRITEJB, 260) 

WRI TE(6,248) 

DO  20  J= 1 1  NT _ 

20  wR I TE ( 6 , 25 1 )  T I  ME ( J ) » ! C l NTP ( J t K ) , K- 1 , 5  ) 

DO  27  J= 1 » NT 

DO  27  K=  1  »_N _ 

27  ERROR! J ,K )=C INTP ( J  »K )-CONC( J, K ) 

WRI TE ! 6, 223 ) 

WRI TE ( 6 , 255 ) 
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WRITE (6,223 ) 

_ MBLLUE  (6x248) 

DO  28  J«l, NT 

28  WR I TE ( 6 , 251 )  TIME(J),  ( ERROR ( J , K) , K=1 , 5 ) 

£ _ FORMAT  STATEMENTS _ 

1  FORMAT (IX, 31 3) 

2  FO  RM  AT  (  1  OF  7  •  3  ) 

6  FORMAT (5F16. 6) 

12  FORMAT (1X»F13.8,4F14*8) 

13  FORMAT ( 10F8. 5) 

220  FORMAT (1H2) _ 

222  FORMAT ( 1H, // ) 

223  FORMAT ( 1H, / ) 

_ 225  FORMAT ( 1 H , 20 X , 32HS0LUT ION  OF  THE  DISPERSION  MODEL, 

18HEQUATIQN/20X, 19HUSING  ORDINARY  B.C.) 

245  FORMAT ( 1H,30X,25H  S EM  I -ANAL YT 1 C AL  SOLUTION) 

246  FORMAT ( 1 H , 2.5  X .29HC0NCENTRATI ONS  A T  £ RID  POINT S ) 

247  FORMAT ( 1H,40X,14HTEN  POINT  GRID) 

248  FORMAT (1H,15X,  5H  TIME,  5X ,  2H  1,  9X,  2H  2,  8X, 
_ 12H  3,  8X.  2H  4,  8X,  2H  5) 

249  FORMAT (1H,15X,  5H  TIME,9X,2H  6,8X,2H  7,8X,2H  8, 

1 8X , 2H  9,  8X ,  2H10) 

75Q  FORMAT  (lH«40Xtl5HFlVE  POlfeLLGRllIj _ 

251  FORMAT ( 1H ,  15X,  F6.1,  2X,  5F10.6) 

260  FORMAT (1H,30X,20H  INTERPOLATED  VALUES) 

255  FORMAT ( 1 H , 30  X , 1 8H  ASSOCIATED  ERRORS) 

264  FORMAT ( 1 H , 2 5 X , 2 8HGR I D  POINTS(FIVE  POINT  GRID)) 

265  FORMAT ( 1H,10X,5F10.6) 

_ 266  FORMAT  (  1H,  25  X  ,27 HGRID  POINT  S(TbN  POINT  GJUDJJ 

STOP 

END 
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GRID  POINTS! FIVE  POINT  GRID) 
0.181800  0.363600  0.545400  0.727200  0.909000 


GRID  POINTS! TEN  POINT  GRID) 

0.095240  0.150480  0.285720  0. 3H0960  0.476200 
0.571440  0.666680  0.761920  0.857160  0.952400 


SOLUTION  OF  THE  DISPERSION  MODEL  E  QUAT I  ON 
USING  ORDINARY  B.C. 

SEMI-ANALYTICAL  SOLUTION 


CONCENTRATIONS  AT  GRID  POINTS 


TEN 

POINT  GRID 

TIME 

1 

2 

3 

4 

5 

0.1 

0.768596 

0. 511058 

0. 283764 

0.  137029 

0.053947 

0.2 

0.881985 

0. 728629 

0. 558586 

0. 394602 

0.255489 

0.3 

0. 926991 

0.826915 

0. 705505 

0. 572762 

0. 44"634 

0 . 4 

0. 950738 

0.881351 

0.793119 

0.690146 

0.578328 

0.5 

0.965072 

0.915059 

0. 849574 

0. 770042 

0.679711 

0.6 

0.974442 

0.937449 

0. 388040 

0.626434 

0. 754214 

0.7 

C. 980905 

0.953067 

0.915353 

0. 867470 

0.810149 

0.8 

0.985539 

0. 964359 

0. 935353 

0. 393043 

0. 852749 

0.9 

0. 988958 

0. 972738 

0. 950332 

0.921236 

0.885547 

1.0 

0.991533 

0.979076 

0.961735 

0. 939041 

0.910994 

TIME 

CONCENTRATIONS  AT 

6  7 

GRID  POINTS 
8 

9 

10 

0. 1 

0 • 52  p95 8 

0. 176475 

0.033404 

0.001545 

-0.000949 

0.2 

0.  72  98  94 

0.419208 

0.  132635 

0. 058351 

0.01  3554 

0.3 

0. 823855 

0. 589391 

0. 349980 

0.  171427 

0. "75412 

0.4 

0.88411 2 

0.703162 

0. 492555 

0.302325 

0. 177966 

0.5 

0. 917963 

0. 780717 

0.605214 

0.427423 

0.297956 

0.6 

0.940100 

0. 835163 

". 692501 

0. 537235 

0.416783 

0.7 

0.955292 

0.874453 

0. 759974 

0.629527 

0.524346 

0.8 

0. 966106 

0.903461 

0. 812274 

0. 705215 

0.616776 

C  .  9 

0. 974021 

0. 925260 

0.852953 

0. 766372 

0.693729 

1.0 

0.979933 

0.941862 

0. 884690 

0.815331 

0. 756546 

• 

semi-analytical  solution 


CONCENTRATIONS  AT  GRID  POINTS 


FIVE 

POINT  GRID 

TIME 

l 

2 

3 

4 

5 

0.1 

0.525958 

0. 1 76475 

0.033404 

0.001545 

-0.0^0949 

0.2 

0. 729894 

0.419208 

0.  182635 

0. 058351 

0. 013554 

C  .  3 

0. 828855 

C. 589391 

0. 349980 

0.  171427 

0.075412 

0.4 

0.884112 

0.703162 

0.492555 

0. 302325 

0. 177966 

0.5 

0.917963 

0. 78071 7 

0. 605214 

0. 427423 

0.297956 

0.6 

0.940100 

C. 835163 

0.692501 

0.537235 

0.416783 

C.  7 

0.955292 

0. 874453 

0. 759974 

0.629527 

0.524346 

0.8 

0.966106 

0.903461 

0. 812274 

0. 705215 

0.616776 

0.9 

0.974021 

0.925260 

0.852953 

0.766372 

0.693729 

1.0 

0.979933 

0. 941862 

0. 884690 

0. 815331 

0, 756546 

INTERPOLATED 

VALUES 

TIME 

1 

2 

3 

4 

5 

0.1 

0.533895 

0.  159514 

0.435134 

0.067952 

0.001229 

0.2 

C. 743669 

0.423191 

0.629377 

0. 256354 

0. 026204 

0.3 

0.337052 

0. 597262 

0. 743143 

0.432569 

0. 107545 

0.4 

0.888495 

0.709725 

0.315145 

0.  5695  10 

0.223746 

0.5 

0.920265 

0. 785438 

0. 863360 

0.671668 

0.347134 

0.6 

0.941337 

0. 833500 

0. 897094 

0. 747771 

0. 463418 

C .  7 

0. 956007 

0.876922 

0.921501 

0.804995 

0. 565555 

0.8 

0.966605 

P.905451 

0. 939609 

0.848491 

0.651676 

0.9 

0.974464 

0.927033 

0. 953287 

0.331862 

0.722530 

1.0 

0.980405 

0.  9435  76 

0.963757 

0. 907648 

0. 779925 

ASSOCIATED  ERRORS 

TIME 

1 

2 

3 

4 

5 

0.  1 

0.007937 

-0.016961 

0.401730 

0.066406 

0. 002178 

0.2 

0.013775 

0. C03983 

0.446742 

0. 198003 

0.012650 

0.3 

0. 008197 

0.007871 

0. 393163 

0.261142 

0.032133 

0.4 

0. 004383 

0.006563 

0. 322590 

0.267135 

0.045780 

0.5 

0.002302 

0.004721 

0. 258146 

0.244245 

0.049178 

0.6 

0.001237 

0.003337 

0. 204593 

0. 210536 

0.046635 

C .  7 

0.000715 

0. 0C2469 

0.  161527 

0. 175468 

0.041209 

0.8 

0.000499 

0.001990 

0. 127335 

0.143276 

0.034900 

0.9 

0.000443 

C. 001773 

0.  100334 

0. 1 1 5490 

0. 028801 

1.0 

0.000472 

C. 001714 

0.079067 

0.092317 

0.023379 

. 

• 

E-29 


c 

_X_ 

PROGRAM  FOR  INTERPOLATION 

INTERPOLATE  THE  VALUES  OF  CONCENTRATION 

C 

c 

CORRESPONDING  TO  ONE  GRID  FROM  THOSE 

OF  A  HIGHER  POINT  GRID 

N=  Ild£_  .NUMBER  OF  GRTn  POINTS  (  THF  VAIllFS 

C 

c 

c . 

TO  BE  INTERPOLATED) 

NN=  THE  NUMBER  OF  GRID  POINTS  (  GREATER  THAN 

ABOVE ) 

c 

c 

c 

NT=  THE  TOTAL  NUMBER  OF  TIMES 

X=  THE  DIMENSIONLESS  DISTANCES  OF  THE  GRID 
— P..Q1  N T S-_LQ RR1LSP Q N D I  NG.  LL  THF  vamjfs  m  rf 

c 

c 

-C 

INTERPOLATED  ) 

XX=  THE  DIMENSIONLESS  DISTANCES  OF  THE  GRID 

POINTS  (CORRESPONDING  TO  THE  HIGHER  POINT  GRID) 

REAL  X(5),XX(15),TIME(15) ,  CONC( 15*5), 

1CEVR(15*5),CGRID( 15,5) 

- - RE AL  C  INI Pi  15,5)  ,  £R RUR  ( 1_5, 5 ) 

INTEGER  I,J,N,NN,NT 

READ( 5,1)  N ,NN , NT 

READ (5,21  (TIME(J),J-1,NT) 

A 

DO  3  J  =  1  ,  NT 

READ( 5,6)  (CEVRI J,K) ,K=1,NN) 

CONTINUE 

5 

DO  5  J= 1 , NT 

RE  AD ( 5 , 6 )  (  CONC( J ,K ) , K= 1,N) 

CONTINUE 

RE  AD ( 5 , 12 )  (X(J)  *  J= 1 , N ) 

RE  AD ( 5 , 1 3 )  (XX(J) ,J  =  1,NN) 

WRITE (6,220) 

L INES=  10 

CALL  L  [NECKLINES, 4, 2) 

WRITE(6,261) 

CALL  LINECKLINES,  3,2) 

WR I TE ( 6  *  262 )  (X(  I) ,1=1, N) 

.  WRITE!  6,22.2) 

WRI TE (6,263 ) 

CALL  L  I  NECT ( L INES , 3 , 2 ) 

WRI TE ( 6 , 262 )  ( XX (  I  )  ,I  =1,NN) 

WRI TE(6,223) 

WR I TE (  6 , 225  ) 

-.LINES- 9    

CALL  L  INECT (LINES, 4, 2) 

WRI TE( 6,245) 

WRI TE ( 6, 223 ) 

WRI TE ( 6, 246 ) 

WRITE(6,247) 

WRI  T£{  6,2 48 ) 

7 

DO  7  J= 1 , NT 

WR I TE ( 6 , 25 1 )  TIME(J),  ( CE VR ( J , K ) , K= 1 , 5 ) 

WRITE(6,223) 

,  .  AV  ■  nT  )  .2IH '  £1  «  iu  v  /„  •  T  *i 

( 3VQflA 

:il«  3HT  30  23DHAT2IO  22  3  JHO  I  2H3M  I  0  3HT  =X 

aa  qt  2aujAv_3HJ,aT  aniOMQqaaaaQj  2inioa 

lull  4  H3M0IN  3h T  OT  OH IJDMQ323 AfiQO i  2TH.I09 
•  4  ,  ■  :  )  •.  it  (  :  I  IT*  (91  ]  « (2  J 

i?,ei)aifloo,ie*ei)MV30i 
i  ,  )  »(e,  i )' -Ti  io  ja j* 

1  ,HH,  ,1,1  v  T  I 

T 41 ,  ,  /  u  ,  e  )GA3« 

IT.  ,1-1,11)3  IT)  IS,  2)  A3  - 

I  HI1*.!**,  <*,L)flV  D)  id,2)0A3fl 

3UHJ TtfQO  £ 

t  ,  i = t  e  oo 
i  (*,tn*ic3)  i  . •  e ) c a 3 « 

. 

l  ,I=t,(L)X)  (  j  ,  e )0A 3 

(  U  ,  I  n,  (  U>  X  )  I  cl  ,  2  R,A  J* 

(  SS,  )  ITIflw 
01  *23111  J 
is;,  ,  i  i  j)  j  hi  j  j  ja: 

U  'S,  )  J  T  I  q  . 

is ,s  ,  >  I  i )  i.j  i  j  J  J.  J 
li  , :  *  I ,  ( l )  a  )  (s,)  r  i  .. 


(  S  S  ,  )  T  I  < 

(  - 


I S  « £ , 23H I J  )  T 03H I J  JJAO 

i  ,  i  i ,  m  x  x )  r  ,  )  t  i 

(>SStd)3TIflW 
IcSS,  )  3 T  I 

1  =  <:  3HI  J 

IS,A,23HIJ)TJ3HI J  J  J AD 
I  c^S  ,d  )3T  I  -A 


(  ;?  ,  3)  t  i  - , 

(^AS,cW  3  1  1  VM 
IT-"  ,  )  li  -,. 


<  -  S  ,  >  '  \  i 

l  »  I  =  *  .  I  /»,  l  J  -  '  J  ,  I  U  3HIT  (I  ,  )  T  I  5)m  \ 

i  S,  )  M-i«l 


WRITE(6,246) 

. WRITE  (6, 249) 

3 

DO  8  J=1,NT 

WRITE(6,251)  TIME(J) , ( C  E  V  R  (  J  »  K ) » K=6 , 10 ) 

WRI  TE  (-6,223.) 

LINES=10 

CALL  L INECT ( L  INES  »  3»  2 ) 

_ _ WRITE  (  6 «  245  )  _ 

WRITE(6, 223) 

WRI TE(6, 246 ) 

WRI  TE ( 6 «  2 50 ) 

_ 9 

WRITE(6,248) 

DO  9  J  =  1 t  NT 

WRITE ( 6, 251 )  T I  ME ( J )  ,  ( CONC ( J  ,  K ) , K= 1 , 5 ) 

CALL  CALCU( 10,NfNT ,CEVR, 1, XtTIME,  CINTP,XX) 

WRITE(6,223) 

-  LINE S= 9 

CALL  L I NECT ( L INES  *4,2) 

WRI TE ( 6,  260 ) 

WRITE(6, 248) 

10 

DO  IT  J= 1 1 NT 

WRI TE ( 6»  251 )  TIME(J),(CINTP(J,K),K=1,5) 

-Da  .2  7  J  =  1  f  N  T 

27 

DO  27  K= 1 , N 

ERROR! J,K)  =  CINTP( J , K ) -CONC { J  ,  K ) 

WRITE(6,223) 

WRITE(6»255) 

WRITE(6,223) 

WRITE(6,248) 

11 

C 

DO  11  J=  1  »  NT 

WRITE (6, 251 )  TIME ( J ) ,  (ERROR (  J ,  K) ,K=1 ,5) 
FORMAT  STATEMENTS 

1 

2 

6 

F0RMAT(1X,3I3) 

FORMAT ( 10F7. 3) 

FORMAT ( 5F 16 . 6 ) 

12 

13 

22'"' 

FORMAT ( 1X,F13.8,4F14.8) 

FORMAT ( 19F8. 5) 

FORMAT ( 1 H2 ) 

?22 

223 

225^ 

FORMAT ( 1H,// ) 

FORMAT ( 1H,/ ) 

FORMAT (1H*20X#32HS0LUTI0N  OF  THE  DISPERSION 

MODEL , 

18HEQUAT I0N/20X , 21HUS ING  DANCKWERTS  B.C.) 

245  FORMAT  (  1H,30X,25H  S  EM  I -ANAL  YT  I  CAL  SOLUTION) 

_  246  FORMAT ( 1H , 25X , 29hC0NCENTRA TI ONS  AT  GRID  POINTS) 

247  FORMAT ( 1H,40X, 14HTEN  POINT  GRID) 

248  FORMAT (1H,1 5X,  5H  TIME,  5X ,  2H  1,  9X,  2H  2, 
12H  3,  8X »  2H  4,  8X ,  2H  5) 

8X, 

249  FORMAT ( 1H, 15X,  5H  TIML,9X,2H  6,8X,2H  7,8X,2H 
1 8X  »  2H  9,  8  X  »  2H10) 

250  FORMAT (1H«40X. 15HFIVE  POINT  GRID) _ . _ 

8 » 
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E-31 


251  FORMAT! 1 H ,  15X,  F6.1,  2X  ,  5F10.6) 

255  FORMAT ( 1H »  3C  X  *  1 8H  ASSOCIATED  ERRORS ) 

260  FORMAT! 1H,30X,20H  INTERPOLATED  VALUES) 

261  FORM  AT ( 1 Ht  25 X , 28HGR I D  PQINTS(FIVE  POINT  GRID)) 
- 262  FORM  A  XI 1  hi ,  10  X.5F1  Q.f>> 

263  FORMAT t 1H ,  25 X ,  27HGR I  0  POINTS(TEN  POINT  GRID)) 
STOP 

1 _  END  ... 


_ 


- 


- 


— 


— 


. 

. 

(  .  :  <c  ,  Ar  I  t' '  f  ) 

. 


GRID  POINTS (HIVE  POINT  GRID) 
0.181800  0.363600  n. 543400  0.727200  0.909000 


GRID  POINTS ( TEN  POINT  GRID) 

0.095240  0.190480  0.285720  0.380960  0.476200 
0.57144C  0.666680  0.761920  0.857160  0.952400 


SOLUTION  OF  THE  DISPERSION  MODELEQUAT ION 
USING  DANCKWERTS  B.C. 

SEMI-ANALYTICAL  SOLUTION 


CONCENTRATIONS  AT  GRID  POINTS 


TEN 

POINT  GRID 

TIME 

1 

2 

3 

4 

5 

0. 1 

0.421237 

0.256385 

0.  134540 

0.060021 

0  •  02  241 9 

0.2 

0. 593183 

C. 456578 

0. 327679 

0.217918 

0.  1  33593 

0.3 

0.697079 

0. 583243 

0.475241 

0.366089 

0.267957 

0.4 

0. 767475 

0. 680663 

0. 585624 

0.487329 

0.391223 

0.5 

0.313023 

0. 748356 

0. 669428 

0. 584131 

0.496380 

0.6 

0.355651 

0. 799406 

0. 734131 

0.661500 

0. 584035 

0. 7 

0.384371 

0.8  33736 

0. 784829 

0.723551 

0.656582 

0.8 

0.906706 

0.869540 

0. 325046 

0. 773665 

0. 716520 

C.  9 

0.924329 

0. 893980 

0. 357270 

0.814373 

0. 766045 

1.0 

0. 933394 

0.913569 

0. 833298 

0. 347599 

0. 806992 

TIME 

CONCENTRATIONS  AT 

6  7 

GRID  POINTS 
8 

9 

10 

C. 

1 

0.303901 

0.095462 

0 . n 1 7080 

0.000637 

-0.000509 

0. 

2 

0.481934 

0.256337 

0.  105237 

0.032002 

0 . 00  7  05  L 

0. 

3 

0. 6011 71 

0.396574 

0. 221157 

C. 102730 

0.043173 

0. 

4 

0.636539 

0.509758 

0.335712 

0.  195  124 

0. 109570 

0. 

5 

0. 75nl 13 

0. 600102 

0.438892 

0. 293654 

0. 195402 

0. 

6 

0. 793720 

0.672439 

0. 528449 

C. 389227 

0. 288934 

0. 

7 

0.836604 

0. 730726 

0. 604878 

0.477332 

0. 381666 

0. 

8 

0.866565 

0. 777995 

0.669534 

0. 556039 

0.468534 

0. 

9 

0.890535 

0.816546 

0. 723957 

0.624345 

0.547033 

1 . 

0 

0.909885 

0.843135 

0. 769622 

0.634204 

0. 616295 

■ 

• 

SF MI- ANALYTICAL  SOLUTION 


CONCENTRATIONS  AT  GRID  POINTS 


FIVE 


TINE 

1 

2 

C.  1 

0. 30390  1 

0. 095462 

0.2 

0.481934 

0. 256337 

0.3 

0.60U7I 

0. 396574 

0.4 

0.685539 

0. 509758 

0.5 

0. 750113 

0. 600102 

0.6 

0. 798720 

0. 672439 

0.7 

0.836604 

0.  730726 

0.8 

0. 866565 

0.777995 

0.9 

0.890535 

0.816546 

1.0 

0.909885 

0.848135 

POINT  GRID 

3 

4 

5 

° . 0 1 7080 

0.000637 

-0. 00  C  509 

0. 105237 

0. 032002 

0.007051 

0.221157 

0.102780 

0. 043173 

0. 335712 

0. 195124 

C. 1 09570 

0.438892 

0.293654 

0. 195402 

0. 528449 

0.389227 

0.288934 

0. 604878 

0.477382 

0. 381666 

0.669534 

0. 556039 

0.468534 

0. 723957 

0.624345 

C. 547033 

0. 769622 

0.684204 

0.616295 

INTERPOLATED 


TIME 

1 

2 

0.1 

0.269628 

0.070547 

0.2 

0 • 46  37 P8 

0.236214 

0.3 

0. 598334 

0.385374 

0.4 

0.683915 

0.50524 2 

0.5 

0. 755088 

0.600020 

0.6 

0.804905 

0.675173 

0.7 

0.843237 

0. 735193 

C.  8 

0.373230 

0. 783492 

0.9 

C .897009 

0. 822613 

1.0 

0.916056 

0. 854486 

VALUES 


3 

4 

5 

0.241493 

0.034891 

-0.001884 

0. 4C1 260 

0. 151479 

0.012433 

0. 522623 

0. 279966 

0.063047 

0.616282 

0. 3969n4 

0.141731 

0.689419 

0.497243 

p.234347 

9. 7^7196 

0.581572 

0. 3298P9 

0. 793313 

P.651912 

0.421341 

0.830445 

0.710439 

0.505186 

0. 360557 

0. 759102 

0. 579849 

0. 885114 

0. 799563 

0. 64  506  9 

ASSOCIATED  ERRORS 


ME 

1 

2 

3 

4 

5 

0.  1 

-0.034273 

-0.024915 

0.224413 

0.034254 

-0.001375 

0.2 

-0.013226 

-0.020123 

0. 296023 

0. 119477 

0.005382 

0.3 

-0.002837 

-0.0112C0 

0. 3P1467 

0. 177186 

0. C19874 

0.4 

0.002376 

-0.004516 

0. 280570 

0. 201780 

0.032161 

0.5 

0.004975 

-0. 0P0082 

0.250527 

C. 203589 

C. 038945 

0.6 

0.006185 

0.002734 

0. 218747 

0. 192345 

0.040875 

0.7 

0.006633 

0. 004467 

0.  188435 

0. 17453C 

0.039675 

0.8 

0.006665 

0. 005497 

0.  160911 

0. 154400 

0. 036652 

0.9 

0.006474 

0.006072 

P.136600 

0. 134257 

0.032816 

1 .0 

0.006171 

0.006351 

0. 115492 

0. 115359 

0.028774 

■ 

FI 


APPENDIX  F 

ONE  DIMENSIONAL  HOMOGENEOUS  CASE 
(Various  Input  Signals) 


The  partial  differential  equation  is 


2 

3_c  _  3  c  a  c 

a 0  ~  a  “2  ■  aT  • 

0  z 


The  boundary  conditions  are 


(i)  at  z  =  0, 
at  z  =  1, 


c 


(6) 


3_C 

a  z 


o 


(ii)  at  z  =  0,  cin<e)  =  cz,0+  -  «(  if  ) 

z-*o^ 

at  z  =  i’  H  =  °- 

The  above  equation  has  been  solved  for  three  different  input 
signals  i.e.  cin(0) 


(a) 

STEP  INPUT: 

cin(0)  *  constant 

(b) 

SINE  WAVE  INPUT: 

C  j  ( 0 )  =  0.75 
in 

+  0.25  Sin  to 0 

(c) 

SQUARE  WAVE  INPUT: 

Cin(0)  =  1 

0  <  6  <  c 

*  -1 

O  <  0  <  2c 

cin(0  +  2c )  * 

°in<8). 

'  :•  x>i  c  :  c  > 


. 

. 


inoonnnboonn 


SOLUTION  OF  THE  DISPERSION  MODEL  EUUATIGN-GNE 
DIMENSIONAL  HOMOGENEOUS  CASE 

INPUT  DATA 

N=  THE  NUMBER  OF  GRID  POINTS. 

■  NT  =  THE  TOXAL  NO.  OF  TTMFSt 
M ATR I X=  THE  COEFFICIENT  MATRIX 

X=  THE  DIMENSIONLESS  DISTANCES  OF  GRID  POINTS. 
CI=  THE  INITIAL  CONDITION  VECTOR. 

Cl=  THE  BOUNDARY  CONDITION  VECTOR. 

T I ME=  THE  DIMENSIONLESS  TIMES. 

DX=  THE  GRID  SPACING. 

REALMS  DXtWl »  BB , BB 1 

DOUBLE  PRECISION  MATR I X ( 30 , 30 ) , VECTOR ( 30 , 30 ) 
DOUBLE  PRECISION  X  (.30  ). » VAR  (  301  «CH  301  »CH30|  , 
1T0LERC»W  130  f  30 1  ,CEVRI110,30)  *TIM6(  110)  fCONC!  1L0  ) 
DOUBLE  PRECISION  D < 30 , 30 ) , VI CTOR ( 30 , 30 ) 

£ _ READ _ THE  DATA _ 

READ (  5,1)  N , NT 

READ! 5, 5)  ( (MATRIX! I,J) ,  J  =  1 ,  N  )  ,  I  =  1 ,  N ) 

RE AD (  5,2  )  ( X ( J  >  ,J  =  1,N) 

READ!  5,2  )  (  C I ( J )  ,  J  =  1 ,N ) 

RE AD (  5,2  )  (Cl ( J) , J=1 ,N ) 

- READ (5,2) _ (TIME(J),  J=1.NT) _ 

R E AD ( 5 , 4 )  DX 
NOR  M=  2 

TOLE  RC  =0 • DOO 
WRI TE ( 6 , 223 ) 

L I NE  S  =  9 

_ CALL  L  1  NECT  (  LINES, 4, 2) _ _ 

WRITE (6,253)  DX 
WR  I  T  E  (  6 , 220  ) 

LINES  =9  _ _ 

CALL  L I NECT ( L INES , 4 , 2 ) 

WRIT£(6»224) 

_ WRITEC6.223) _ 

WRI TE ( 6 , 231 ) 

CALL  L I NECT ( L  I NES , 1 , 2 ) 

WRITE(6,232)  ( X ( J )  ,J=1,N) 

CALL  LINECT (LI NES, 4, 2) 

WRITE(6,223) 

_ WRITE (6,233) _ 

CALL  L  INECT ( LINES, 2, 2) 

WR  I  TE ( 6 , 2  34  )  ( C I ( J  )  , J  =  1 , N ) 

CALL  LINECT (LI NES, 4, 2) 

DO  30  J=1,N 
30  C1(J)=C1(J)/(DX**2) 

—  WR I TE ( 6 , 223) 

WRITE (6,235) 

CALL  L  INECT (LINES, 2, 2) 

WRITE! 6«234J  (  C 1  (  J  )  ,  J=  1 ,  N I  _ _ 


3£/>3  ?UQJ.l30i  r  h  J<=4  JMV  i( 
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t  £,0£  JflOTOlV,  (0£,0£  >0  12  10339  3J8U0Q 

A  T  AQ  3HT 
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(  » r  l  » i  )  t  )  is*  ) 

X  ■.  * ,  c*  )  I 

.  1  ‘  T 

(  »  )  I!  i 

P  =  2  3i‘  I  J 

<  S  .  ,  <  I  J  I  I  1 1  I  J  J  A  J 


X  J  (  £  e  S  t  o  )  T  I  . 

(  AS  »t  >  T I 

ISt*t23*1I  J)  133*1  J  J  J  A  D 
USSid)3TI^ 
(>  t  ).  TI  w 
(  I-  S  td)3T  IflW 
(S,I  ,23^11  JIT33HIJ  JJAD 
l  **tl  =U  U  >X  )  t  Sf  S  *  d  )  3  T  J  - 
{ S t A , 23 J I J )7D jUI J  J  J  A  ) 


i 

(  S  ,  )  T I 


t  • 

(H.  i (  ,  . 

I  S't  -  ;  J  J  J  A  3 

cs**xa ) \ (u  io*  a )  id 


(S,S,23HI  J) rj  n l j  j  j  a  j 

(  ,  i  -  L  t  a )  1  )  )  (  s  f  > )  T  I 


t 

<e  s,  ) 3 T i 


CALL  L  INECT ( L INES , 4, 2 ) 

WRI  TE (6*  223  >  _ _ 

WRI TE( 6,240) 

DO  3  6  J=1,N 

_ DO  36  K=1.N _ _ _ 

MATRIXtJ,K)=MATRlXtJ,K)/(DX**2) 

36  CONTINUE 

DO  31  J=1,N  _  _ _ 

CALL  LINECTtLINES, 1,2) 

31  WRITE (6, 241 ) (MATRIX! J,K) ,K=1,N) 

_ CALL  TRANSIN, DX . D , MATRIX ) _ 

L I NE  S=  9 
WRI TE( 6,255 ) 

CALL  LINECTtLINES, 1,2) 
wRITEt6,241)  ( D { J , J ) , J  = 1 , N ) 

CALL  LINECT (LINES, 4, 2) 

_ WR I TE ( 6 , 223 )  _ 

WRI TE( 6, 259) 

DO  50  J=  1  , N 

_ _ CALL  LINECTtLINES, 1,2) 

59  WRITE(6,241 )  (MATRIX! J,K) , K= 1 , N > 

CALL  JACOBKN, MATRIX,  VECTOR  ,TOLERC  ,  NORM  ) 

_ WRI TE ( 6, 220  I  _ _ 

LINES  =9 

CALL  LINECTtLINES, 3, 2) 

WR I TE ( 5 , 223  ) 

WRITE (6t 242) 

CALL  L INECTt LINES, 2, 2) 

_ _ WRITE (6,232 J  (MATRIX! J, J ) , J=1 ,N) _ 

CALL  LINECTtLINES, 3, 2) 

WRITE(6, 223) 

_ WR  I  T  E  t  6 , 243 1__ 

DO  3  2  K  —  1  ,  N 

CALL  LINECTtLINES, 4, 2) 

_ WRI TE ( 6, 232 )  ( V  ECTOR  t  K , J ) , J  =  1,N)  _ _ 

32  WRITE(6»223) 

CALL  CHECKt VECTOR, MATRIX, N,W ) 

L _ WRITE(6,22"  ) 

L  I N  E  S  =  9 

CALL  LINECTtLINES, 1,2) 

_  WRI TE  t  6 ,244) 

DO  33  J=1,N 

CALL  LINECT (LINES, 4, 2) 

WR I TE ( 6, 232 )  (W(J,K) ,K=1,N) 

33  WRITE (6, 223) 

C  CALCULATE  THE  TRANSPOSE  OF  THE  MATRIX  OF 

C  _ THE  EIGENVECTORS  _ 


DO  40  I - 1 , N 
DO  40  J=  1  »  N 

VICTORt I , J )  =  VEC  TOR ( J , I ) 


(St  t  I  J  )  0  '  i  j  Jj  ■) 


(  »  )  T  I 

( 


/«j=*  qcl 

(  :  X  )  \  (  r.  ,  l  )  a  !  A  =  (  a  ,  L  )  X  i  <  T  A 


3UH1THOO  d£ 

*t!=L  H  00 

i  t  :  t  <:  '!  j  )  i  o  /i i  jj ao 


1  /  .  f  -  "  T  <  .-  •  1  )  i  I  •  r  »  '  )  T  I  ^ A  If 

(XI  ,  tXCJt  )2>  .■  A 

(ees,d)3T isw 

(  t  t tv  in  jj  ) 

(  »  I  =  l  t  (  L  1 1  )J  )  lit'  TI  .s 

l  St**2r  I J )  »  1 1 J  jj.  0 


i  ■  ,  ) 

r  ) 

/,f=t  C  JO 


(  ,  ,  r:  -  I  J  J  T  j  I  J  J  J  A  J 

(  t I =  . (  t  U  *  J  )  l  I  ,  )-T I  w  *  ? 

• 

(  '!  »  j  T 

23  1J 

(S  ,  ,  I  J  )  *  J-/.I  J  JJ  j 


IfSS,  )  T 1 

( ♦  )  T  I  . 


C  »S  ,2  1  J )  i ;  J!  J  j  j  A  j 

.  ) 

(S,f  ,2  U  J  )  T  0  3V>  I  J  JJ  0 


(  * S£ ,  •  )  T  IS 
(  ,  )  i 

» :  =  i  s  t 


( S  t  ♦'  1 23ul  J )  T39M I  J  JJAO 

(  f  L,  (Lt  •  I  n  •  )  (S  it  )-Tl  . 

(  s $ ,  ) :  r 1 1  if 

•  •  .  .  ! 

(  OSS  «d )  3T  I  Ai* 

(  t  i  t  a  I  J)  TO-Ji  I  J  JJAO 


I 


<S**t23tfI J)T03Ml J  JJAO 
U^*IS>» (*, U*  )  r  £S,d)3TI*w 

<  *  S  S  ,  o  )  T  I  ' 

X  M  T  AH  3HT  30  320R2HA3T  3HT  3TAJU0JA0 

^,1*1  O  OC 
*  « I  =t  C*  00 
(  I  t  L )  TO  V*  It,  I)  T  01 V 


40  CONTINUE 

C  A=(  D(-l  )  *A(*  )*D)  _ _ 

c  a(*)=the  original  coefficTent  matrix 

C  D-T  HE  DIAGONAL  MATRIX  USED  FOR  THE  CONVERSION 

— £ - OF  MATRIX  !A!») )  TO  THE  SYMMETRIC  FORM 

C  A=  THE  SYMMETRIC  MATRIX  DERIVED  FROM  THE  ORIGINAL 

C  COEFFICIENT  MATRIX  A!*) 

C - Q  =  T HE  MATRIX  OF  EIGENVFCTO R $  0 F  A 

C  CALCULATE  THE  EIGENVECTORS  OF  THE  ORIGINAL 

C  COEFFICIENT  MATRIX 

_ DO  3  3  I  - 1 « N 

DO  38  J=  1 ,  N 

VECTOR ! I , J)=0( I, I ) *VEC  T  OR ! I  ,  J) 

38  CONTINUE 
WRI TE ( 6, 220 ) 

LI NES=9 

_ CALL  LINECT!LINES,3,2) _ 

WRITE! 6,  223  ) 

WRITE!6,256) 

CALL  LINECT(LINES,2,2) 

WRITE! 6,232)  ( MATRI X ( J , J I , J= 1 ,N I 

CALL  LINECT! LINES, 3, 2) 

_ WR ITE(6>223) _ 

WRI TE!6, 257) 

DO  39  K=  1  ,  N 

CALL  L INECT ! LINES,3,2)  _ 

WRITE (6, 232)  ! VECTOR (K,J>  ,J=1,N) 

39  WRI TE ( 6  »  223) 

_C  (  P*Q  )(-!)=  QJ -1  )  *D! -1  )  =QT^jJ !  -I  )  _ _ 

C  QT=  THE  TRANSPOSE  OF  THE  MATRIX  OF  EIGENVECTORS  OF 

C  D ( - 1 ) =  T H E  INVERSE  OF  MATRIX  D  AS  DEFINED  PREVIOUSLY 

C _ CALCULATE  THE  PRODUCT  <QT*P,1J 

DO  41  1*1 ,N 
DO  41  J  =  1 ,  N 

VICTOR  (I  ,J)=VICTUR! I ,J)/D(J,J) 

41  CONTINUE 

CALL  SEMI  AN! N, VAR, VECTOR, Cl, Cl , MAT R I  X , T I  ME , NT  , 

1CEVR , VICTOR) 

WRITE16, 223) 

WRITE(6,225) 

_ WRITE! 6,245) 

W  R IT  E ( 6 ,223) 

WRITE!6,264) 

WR I TE ! 6 , 223 ) 

WRI TE(6,246) 

WRITE(6»248) 

_ DO  34  J= 1 , NT 

34  WR I TE ! 6 , 251 )  TIME(J),  < CE VR ! J , K ) , K- 1 , 5 ) 

WRITE! 6,223) 

WRITE! 6,246) 
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WRITE! 6,249) 

_ DO  35  J=1,NT 

35  WR I TE ! 6  »  2 52  )  TIME(J),  (C EVR ( J , K) , K-6 , 1 1  jT 
C  FORMAT  STATEMENTS 

1  F0RMAT!1X.?T4) 

2  FORMAT (10F8. 5) 

4  FORMAT ( 1X,F16*8) 

5  FORMAT (  1  IF  7  »  4  ) 

2  2D  FO  RM AT ! 1 H2 ) 

221  FORMAT ( 1H, 10X, 8H  ..CONTD) 

_ 222  FORMAT ( lHt// I 

223  FORMAT ( 1  H »  / ) 

224  FORMAT ( 1H, 18X,28H  CONCENTRATION  PROF  I L E S-ONE- » 

1 1 1 H  D I M  ENSIO NAL/25X  t  22H  HOMOGENEOUS  MEDIUM) 

225  FORMAT ( 1H»20X»32HSOLUT ION  OF  THE  DISPERSION  MODEL, 
18HEQUATIQN/20X, 19HUSING  ORDINARY  B.C.) 

_ 231  FORMAT ! 1H, 30X, 12H  GRID  POINTS) 

232  FORMAT ! 1H,10X,5F11 .6 ) 

233  FORMAT ( 1H,30X ,25H  INITIAL  CONDITION  VECTOR) 

234  FORMAT! 1H, 10X,5F12.4)  _ 

235  FORMAT ( 1H  ,  3^X  ,26H  BOUNDARY  CONDITION  VECTOR) 

240  FORMAT (1H,30X,27H0RIGINAL  COEFFICIENT  MATRIX) 

_ 241  F0RMAT<1H,10X,1IF6.1  ) _ _ 

242  FORMAT ( 1H,30X,12H  EIGENVALUES) 

243  FORMAT ( 1H,30X, 13H  EIGENVECTORS) 

244  FORMAT ( 1H, 2CX,35H  CHECK  OF  SIMILARITY  TRANSFORMATION) 

245  FORMAT  ! 1H , 30X  » 2  5H  SEMI-ANALYTICAL  SOLUTION) 

246  FORMAT ( 1 H, 2 5X , 29HC0NCENTR A T I QNS  AT  GRID  POINTS) 

248  FORMAT ( 1H , 1 5X ,  5H  TIME,  5X,  2H  1,  9X,  2H  2,  8X, 

12H  3,  8X,  2H  4,  8X,  2H  5) 

249  FORMAT ( 1H  *  1 5X  »  5H  TIME,9X,2H  6,8X,2H  7,8X,2H  8, 

I _  18X,2H  9,  8 X ,  2H1C, 8X,2Hll ) 

251  FORMAT ( 1H ,  15X,  F6.1,  2X,  5F10.6) 

252  FORMAT ( 1H ,  15X,  F6.1,  2X,  6F10.6) 

_ 253  FORMAT! 1H, IPX, 13HGRID  SPACING=,  F11.6) _ 

255  FORMAT! 1H, 1  OX, 9HMATR IX (D)/10X, 

1 19H(0I AGONAL  ELEMENTS)) 

256  FORMAT ( 1H,2DX, 19H  EIGENVALUES  OF  THE/20X,  _ 

127H0RIGINAL  COEFFICIENT  MATRIX) 

257  FORMAT! 1H,20X,20H  EIGENVECTORS  OF  THE/20X, 

_ _ 127HORIGI NAL  COEFFICIENT  MATRIX) 

259  FORMAT! 1 H , 30 X , 2 7H0RI G I N AL  COEFFICIENT  MATRIX/ 

1 20 X, 26H! CONVERTED  INTO  SYMMETRIC)) 

264  FORMAT ( 1H.40X* 10HSTEP  INPUT) 

STOP 

END 
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SUB  ROUT  I  NE  TRA;\lS(N,OX,D,  MATRIX) 

C  THIS  SUBROUTINE  CONVERTS  THE  ORIGINAL  COEFFICIENT 

C  MATRIX  TO  THE  REAL  SYMMETRIC  FORM  USING . 

C  SIMILARITY  TRANSFORMATION 

jC _  I  NPUT  DATA 

C  DX=  THE  GRID  SPACING 

C  N=  THE  NUMBER  OF  GRID  POINTS 

C  OTHE  DIAGONAL  MATRIX  ,  WITH  DIAGONAL  ENTER IES _ 

HAVING  ALTERNATE  SIGNS  I.E.  D(I,I)=(-1)**(I)(D(I,I)) 
C  USED  FOR  SIMILARITY  TRANSFORMATION 

- MATRI X=  ,  THE  ORIGINAL  COEFFICIENT  MATRIX  (DIAGONALLY 

C  DOMINANT  S  UN S YMM E TR I C ) ,  DESTROYED  DURING 

COMPUTATION  AND  THE  RESULTANT  MATRIX  IS  SYMMETRIC 

£  AND  DIAGONALLY  D  C  M  A  N  A  h  T_. _ _ 

REALMS  DX» ALPHA, BETA 

OOUBLE  PRECISION  D (  30 , 30 ) , MA TR I  X ( 30 , 30 ) 

_ AL  PH A=0 . 2 

BETA=DX/2.0 

D<  1 »  I)  =  1.0 
C 

C  CALCULATE  THE  DIAGONAL  ELEMENTS  OF  MATRIX  D. 

C 

_ NN=N-3 _  _ _ _ _ _ 

DO  100  I =1 , NN 

11=1+1 

D(  II, I  I  )=D(  I, 1 ) *DSQRT ( ( ALPHA  +  B ETA)/ ( ALPHA- BET A)  ) 

100  CONTINUE 

D(  10, 1C  )=D(9,9)*DSQRT(  (4./ 3.  )  *(  ALPHA+BET  A  )  / 

_ 1  ( ALPHA-BETA )  ) 

D( 11,11 )=D< 10, 10) *DSQRT< ( 6 • 0* ALPHA )/ { 2.0* 

1  ALPHA-BETA)  ) 

_  DO  102  1=1, 1JL,  2 

D(  I  ,  1  )  = -0 ( 1,1) 

102  CONTINUE 
C_ _ _ 

c  CALCULATE  THE  COEFFICIENT  MATRIX  CONVERTED  INTO 

C  THE  SYMMETRIC  ONE 

C 

00  101  I = 1, N 
DO  101  J  =  1 , N 

_ _ MA  TRI  X  (  I  ,  J)  =  (  MATR  I  X  (  I  ,  J  )  *LM  J  ,  J  )  )  /  (  DJ  I,  I  )  ) 

101  CONTINUE 
RETURN 

END  _  _ 
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CONCENTRATION  FROF  I  LES-CNE-C  I  MENS  IONAL 
HCNCGENECLS  MECIUN 


GRIC  PC  IMS 


0.C9524C 

0.1SC48C  0. 2  8  5  72C  C.38C96C 

0.476200 

C.57144C 

l.CCCCCC 

0.66668C  Q. 761920  C.85716C 

0.9524 CC 

C.C 

INITIAL  CCNCITICN  VECTOR 
_ C*_0_  C.C  0.0 

0.0 

0  .0 

C.C 

c.c  C.C  c'.c 

C.O 

27.299C 

6CUNCARY  CCNCITICN  VECTOR 

c.c  o.c  o.o 

o 

• 

o 

C.C 

G  .0  C.C  C.C 

o 

• 

o 

C.C 


ORIGINAL  COEFFICIENT  MATRIX 


44.  1  - 

16.8 

O.C 

O.C 

o.c 

C.C 

0.0 

0.0 

0.0 

0.0 

0.0 

-27.2 

44.1 

-16.  E 

c.c 

c.c 

c.c 

o.c 

O.C 

0 . 0 

0~.0 

0 . 0 

C.O  - 

27.3 

44.1 

-16.8 

0.0 

0.0 

C.C 

o.c 

c.c 

c.c 

o.c 

C.C 

C.C 

-27.2 

44.1 

-16.8 

C.O 

O.C 

0.0 

C.O 

o.c 

c.c 

C  .C 

c.c 

C.C 

-27.2 

44.1 

-16.8 

C.C 

c.c 

C.O 

C.C 

0.0 

c.c 

o.c 

O.C 

0.0 

-27.3 

44.1 

-16.8 

c.c 

C.O 

C.C 

C.O 

c.c 

C.C 

C.C 

c.c 

0.0 

-27.  3 

44.1 

-16.8 

0  .0 

0.0 

0  .0 

c.c 

C.O 

O.C 

c.c 

O.C 

c.  c 

-27.  2 

4  4.1 

-16 .6 

~or?r 

~7T.O 

c.c 

C.O 

C.C 

o.c 

0.0 

C.C 

C.O 

-27.3 

44.1 

-16.8 

o 

. 

o 

c.c 

O.C 

c.c 

c.c 

C.O 

C.C 

C.O 

C.O 

-36.4 

88.2 

-51.8 

0.0 

C.C 

C.C 

c.c 

C.C 

c.c 

C.C 

c.c 

0.0- 

176.4 

176.4 

MATRIXIC) 

( C  IAGCNAL 

ELEMENTS  i 

o 

• 

r—4 

• 

1.3 

-1.6 

2.  1 

-2.6 

3.4 

-4.3 

5.5 

i 

->j 

. 

o 

10.  3 

-18.9 

ORIGINAL  COEFFICIENT  MATRIX 

( CONVERT  EL 

I  NT C 

SYMMETR  IC  ) 

44.  1 

21.4 

c.c 

C.O 

o.c 

c.c 

C.O 

0.0 

0.0 

0.0 

0  .0 

21.4 

44.1 

21.4 

C.C 

O.C 

c.c 

c.c 

c .  c 

C.C 

0.0 

0.0 

C.C 

21.4 

44.  1 

21.4 

O.C 

o.c 

0.0 

0.0 

0.0 

0.0 

0.0 

O.C 

O.C 

21.4 

44.  1 

21.4 

c.c 

C.O 

C.O 

0.0 

0.0 

0.0 

0.0 

C.O 

O.C 

21.4 

44 . 1 

21.4 

c.c 

c.c 

0.0 

c.c 

c.c 

C.C 

c.c 

O.C 

0.0 

21.4 

44.1 

21.4 

0.0 

0.0 

o.c 

0.0 

C  .C 

o.c 

C.C 

C.C 

C.O 

21.4 

44.  1 

21.4 

c.c 

c.c 

C.O 

C.C 

C.O 

O.C 

C.C 

0  .0 

0.0 

21.4 

44. 1 

21.4 

C.C 

0.0 

C.C 

c.c 

c.c 

C.C 

O.C 

C.C 

0.0 

21.4 

44.1 

24.7 

0.0 

C.C 

c.c 

C.C 

C.O 

o.c 

C.C 

c.c 

0.0 

24.7 

88.  2 

95.6 

C.C 

C.C 

C.C 

C.O 

o.c 

o.c 

O.C 

0.0 

0  .0 

95.6 

176.4 
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CHECK  CP  SIMILARITY  TRANSFORM AT  I CN 
44.098236  21.417811  O.COOOCO  -C.CCOCOC 

-C.CCCCCC  -C.CCCCCC  O.CCOCQC  O.OOOCOO 

C  .CCGCCC 


-C.COOCCO 

-0.000000 


*1.417811  44.096236  21.417611  C.CCOCCC  0.000000 
-c.ccocoo  c.occooo  o.ococcc  -c.ccococ  O.CCQCOO 
-C.CCCCCC 


C.COOOOO 21.417811  44.098236  21  .41781  1  O.OCCCOC 

C.CCCCCC  O.CCCCOO  -C.CCOOCO  -O.OOOCOO  -0.000000 

0  .CGOCOC 


-O.CCCCCC  C.CCCCOC  21.417811  44.C98236  21.417811 

C.OCQCCC  O.CCCCOO  -O.OCOOCC  C.COCCOO  C.OCOOOO 

-C.CCCCCC 


-C.CCCCCC 
21.417611 
-C  .CCOOOO 


O.CCCOCO 

C.CCCCCC 


O.COOOOC 

-C.CCOCOC 


21.417811 

-C.CCCCCC 


44.098236 
0. CCOOOO 


-C.CCOOCC  -C.CCCCCC  C.CCCCCC  C.CCOCOO  21.417811 
44.098236  21.417811  O.OOOOOC  -C.COOOOO  O.OOOCrO 

-C.CCCCCC 


-C.CCCCCC 

21.417811 
C .CCOOOO 


C.CCCCOC 
44. C96236 


O.CCOCCC 

21.417811 


0.000000 

-C.CCCCOC 


O.OCOOOO 

0.000000 


C.OCOCCC 
C. CCOOOO 
-C.CCCCCC 


C.CCOCOC 

21.417811 


-O.CCCCCC 
44  .098236 


-C.CCCCCC 

21.417811 


-C.CCCCCC 

-0.000000 


C.CCCCCC 

C.CCCCCC 

-O.CCOOOC 

C.OCOOOO 

-0.000000 

-C.CCOOCO 

-C.CCCCCC 

-O.OOOCOO 

21.417811 

44.C98236 

24. 731155 

-O.OCOOOO 

C.CCCCCC 

-O.CCCCOO 

C.CCCCCC 

-O.OOOOOC 

-O.OCOOOO 

C.OCOOOO 

24.731155 

C.CCOOCC 

88.196472 

95.576286 


C.CCCCCC 

-C.CCOOCO 

176.392944 


C.CCCCCC 

C.CCCCOC 


C.CCCOCC 

-O.OOOOOC 


-C. CCCCOC 
-C.CCOCOO 


-O.OCOOOO 

95.578286 
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EIGENVALUES  CF  THE 
ORIGINAL  COEFFICIENT  MATRIX 
2« 369376  84,995322  7 9,386244  23,383956 

70.683734  47.5C1170  13.537C93  35.038732 

238.491119 


6. 358656 
59.728139 


EIGENVECTORS  CF  THE 
ORIGINAL  COEFFICIENT  MATRIX 


-C.C85653 

-0.13C3L7 

0.247625 

-0.376731 

C.  198857 

-C.3411C5 

-c .ccococ 

C. 430663 

C. 259513 

-C. 421505 

0. 40 3 418 

-0.222766 

0.535743 

C  .  3  1  7  2  C  5 
-0.C67226 

-0. 520066 
0.54553C 

-C. 464468 
-0.227280 

0.446676 

-0.375285 

C.CCCCCC 

-C.4C752C  -0.560366  0.689941  0.039558  C. 680182 
-C. 299753  -C. .662168  C.5C4935  C.5624CC  -0.306441 
-C.CCOOCO _ _ 


-C.65C139  C. 848542  -0.6C3933  C.8C3538  C.8C1979 

-C .402  781  0. 279909  0.031961  0.672585  C. 894924 

C.CCCCC3 


-C.95249C  -1.154868  C. 147275  0.926390  0.696108 

1.124438  1.C51843  -0.762392  -0.551245  -C. 334552 

-C.CCCC29 


-1.3C5165 
-  1.  124712 
C.CCC327 

1.432219 
-C. 667895 

C.672C8C 

-1.438698 

-C.  163628 

-1.390199 

C. 260377 

-1 .  143042 

-1.7C3656 

-1.6C5548 

-1.650852 

-1.707134 

-0.546325 

-C.C47558 

-C.CC3738 

-1.573987 

-1.378036 

0.  146172 

1. 6C6993 

-2.103968 
1. 502525 

1.55C492 

1.4C4133 

2.375226 
-C.l 68686 

-1.8388C8 

2.337914 

-1.650278 

0.362521 

C. 042714 


-2.456566  -1.255543  -2.3C5955  0.507077  -2.819089 
-2.533750  2.273365  1.532456  1.023095  -2.948633 
-C. 46813  1  


-2.683310  C.47257C  0.983412  3.613261  -3.650544 

1.549545  -2.742183  3.789255  -3.247485  2.153929 
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CGPAf*  INTERRUPT  (  )  CLC  PSU  IS  FF2500CD62C233EC 

- - SCLUTICN  OF  T  HE  CISPERSION  MODEL  EQUA  T  I  ON 

USING  ORDINARY  fi.C. 

SEMI -ANAL Y T ICAL  SCLLTICN 


STEF  INPUT 


CONCENTRATIONS  AT 

GRID  PCINTS 

TIME 

1 

2 

3 

4 

O.C 

o 

. 

o 

0  .0 

0.0 

0.0 

C.l 

0. 765229 

0.5  10666 

0.291627 

0.144062 

0.2 

0.881334 

0.726742 

0. 556463 

0. 393956 

0.3 

C. 526401 

0.825387 

0.7C3163 

0. 570  3 10 

C  •  4 

C. 55C32C 

C. 880262 

0.751248 

0.68771  1 

0.5 

C. 964789 

0.5  14294 

C. 848165 

C.  768CC4 

C.6 

C. 574250 

C. 936856 

G .886967 

0 .824772 

0.7 

C. 580765 

C. 952642 

C. 914494 

0.866078 

0.8 

0.585434 

C .9640C  1 

0.934615 

0.896826 

C.  5 

C. 988868 

0.972411 

C. 949656 

0.920111 

1.0 

C  .551448 

0.978756 

C.561C82 

0.937567 

1.1 

0.593415 

0.983610 

0.965866 

0.951783 

1.2 

C. 554932 

0.587355 

C .576674 

0.962539 

1.3 

0.5561C9 

0.990275 

C. 581580 

C. 570549 

1.4 

C.557C29 

0.992552 

0.986133 

0.977545 

1.5 

C. 557748 

0. 994337 

C. 585391 

0.982728 

1.6 

C. 598313 

0.95574C 

C.  551553 

0.586806 

1.  7 

C. 558758 

0.996843 

C. 993968 

0.990017 

1.8 

C. 5551C8 

0.957711 

C. 555556 

0.992548 

1.9 

C. 555383 

C. 998396 

0.5568C8 

0.994544 

2.C 

C. 5556C1 

0.998935 

0.997795 

0.996117 

2.1 

C. 555772 

C. 955361 

C  .  5  5  8  5  7  3 

C. 957358 

2.2 

C. 599907 

0.999696 

0.955186 

0.998337 

2.3 

1. CCC014 

0.555561 

C. 555671 

C. 559109 

2.4 

1.CGC098 

1.0CC1 7C 

1.CCCC53 

0.559719 

2.5 

1.C0C164 

1  .000335 

1.000354 

1.000200 

2.6 

1.CCC217 

1.0C0465 

1.CCC592 

1.000579 

2.7 

1.000258 

1.0CC567 

1.0CC779 

1.000878 

2.  6 

1.CCC29C 

1.0C0648 

1.000927 

1.001114 

2.9 

1.CCC316 

1.0CC712 

1.CC1C44 

1.001301 

3.0 

1.CCC336 

1.CC0762 

1.0C1136 

1.001448 

3.  1 

1. CCC352 

1.000802 

1.001209 

1.001564 

3.2 

1.CCC365 

1.0CC833 

1.0C1266 

1.001655 

3.3 

1.CC0375 

1.000858 

1 .00  13  12 

1.001727 

3.4 

1.CC0383 

1.CC0878 

1.0C1347 

1  .001784 

3.5 

1.CCC389 

1.0C0893 

1.0C1376 

1 .OC 1829 

3.6 

1.CCC394 

1.0C0905 

1.001398 

l  .001865 

3.  7 

1. CCC358 

1.CC0915 

1.CC1415 

1.001893 

3.8 

1.CCC4C1 

1.CCC922 

1  .CC 1429 

1.0C1515 

3.9 

1. CCC4C3 

1 .000928 

1.001440 

1 .001932 

4.0 

1.CCC4C5 

1.0C0533 

1. CC1449 

1. CC1546 

4. 1 

1 .CC0407 

1.000937 

1.0C1456 

1 .00  1957 

4.2 

1. CCC408 

1 .000940 

1.001461 

1.001566 

4.3 

1.CCC409 

1.CC0942 

1. CC 1465 

1.001572 

4.4 

1.C004C9 

1 .000944 

1.0C1468 

1 .00  1978 

- " 

1.CC0410  1.0CC545 

1 . CCI471 

i  .urn 

4.6 

1.000411 

1.000946 

1. OC 1473 

1.001585 

4.7 

1.CCC411 

1.000947 

1 .00 1475 

1  .001988 

4.8 

1. CCC411 

1.CC0548 

1.CC1476 

1.001990 

5 

0.0 

0  .062142 
C. 257437 
0.439045 
0.576341 
0. 677251 
C.7520C0 
C. 808169 
C. 85C544 
0.883863 
0. 909392 
0.929299 
0.944881 
0. 957109 
0.966723 
0. 974290 
C. 980250 
0.984948 
0.988652 
C. 991574 
0.993878 
G. 995695 
0.997129 
0.998261 
0.999153 
0.999858 
1.000413 
1.CCC852 
1.001198 
1.001471 
1. 001686 
1.001856 
1.^01590 
1.CC2C96 
1  .002180 
1.002245 
1.C02297 
1.002338 
1.002371 
1.002396 
1.002416 
1. 002432 
1.002445 
1. 002455 
1.C02463 

.002474 

.002477 

.002480 
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1.CCC411  1  •  000545  l . CC 14  7  7  1.001551  1.002483 

1  *  CCC412  1.000949  1.C01478  1.001993  1. 002485 


CCISCEMRAT  ICNS  AT 

GRIC  POINTS 

TIME 

6 

7 

8 

9 

10 

1  1 

0  a  C 

0  .C 

0.0 

C.C 

O.C 

C.O 

0.0 

C  •  1 

0. C23652 

C.CC8024 

0.002450 

0.000683 

0.000209 

0.000148 

0.2 

C.  1553  1  1 

0. C86655 

C. 044915 

0.022105 

0.012004 

0.010  50  3 

0.3 

C.  32C263 

C.  22  1  377 

C.  145742 

C. 053812 

0. C66C13 

0.061691 

C  •  4 

C. 464543 

0.361215 

0.271997 

0.203595 

0.163736 

0.157421 

C  •  5 

C.  5  6 C 5  2 5 

C.48524C 

0.357411 

0. 326053 

0.282670 

0.275732 

C  .  6 

C.671826 

0.588958 

0.510027 

0.443744 

C. 402499 

0.395866 

C  •  7 

C. 742814 

0.673611 

0.606088 

0.548312 

0.511861 

0.505974 

C  •  8 

0.758330 

0.741726 

“07685687 

0.637155 

0. 6062 71 

0.601263 

C.  9 

0.841843 

0.796161 

0.75C5C4 

0.710658 

0.685135 

0.68C982 

1  .C 

0. E76C17 

0.839471 

C. 8027 11 

0.770458 

C. 749696 

0.746303 

1.1 

0. 5C2894 

0.873832 

C. 844468 

0.818601 

0.  8018  78 

0.799130 

1.2 

C. 524054 

C.  901043 

0.877713 

0.857C97 

0.843709 

0.841495 

1.3 

C. 54C726 

C. 922567 

C. 5C41C3 

0. 887740 

0.877064 

0.875285 

1.4 

C. 553867 

0.939577 

0.925CC9 

0.912062 

0.903567 

0. 902 138 

1.5 

C. 564230 

0.953014 

0.941549 

0.931329 

0.924577 

0.923427 

1.6 

C.  5724C2 

C. 563623 

0.554624 

546571 

C. 941207 

0.940279 

1 .  t 

C. 578849 

0.971999 

0.964552 

C. 958619 

0.954356 

C.  5536C4 

1 . 8 

C. 983534 

C.97861C 

0.5731C8 

0.968136 

0.964745 

0.964134 

1.9 

0.967946 

0.983827 

0.575547 

0.975652 

C. 572951 

0. 972450 

2  •  C 

0.591112 

0.987945 

C • 984630 

0 .98 1585 

0.579429 

0.979016 

2.1 

C. 5536C5 

C. 551194 

C. 586641 

0.986268 

0.984543 

0.984199 

2.2 

0.55558C 

C. 953756 

C.9918C7 

0.589564 

0.968579 

0.988289 

2.3 

C.  557134 

0.555781 

0.994305 

0.992881 

0.991765 

0.991518 

2.4 

C. 558361 

0.997377 

0.556276 

C. 995183 

0.994278 

0.994066 

2.5 

C. 559329 

0.998636 

C. 957831 

0.556559 

0.996262 

0.556C76 

2.  6 

1.CCCC53 

0.959630 

0.999059 

0.998432 

0.997827 

0.997662 

2.7 

1.CCC696 

1.000415 

1.C0CC27 

0.555563 

0. 955C62 

0.998914 

2.8 

1.CC1171 

1.001033 

1.0C0791 

1.000456 

1.000037 
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SOLUTION  OF  THE  DISPERSION  MODEL  E UUAT I QN-GNE 

_ C _ DIMENSIONAL  H  G  EOUS  CASE 

C  INPUT  DATA 

C  N=  THE  NUMBER  OF  GRID  POINTS. 

L.  C _ NT  =  THE  TOTAL  NO.  OF  TIMES. 

C  MAT  R I X=  THE  COEFFICIENT  MATRIX 

X=  THE  DIMENSIONLESS  DISTANCES  OF  GRID  POINTS. 

_  C . ci-  The  initial  condition  vector* 

ci-  the  boundary  condition  vector. 

C  TIME=  THE  DIMENSIONLESS  TIMES. 

C  DX=  THE  GRID  SPACING. 

RE AL*8  DX 

DOUBLE  PRECISION  MATR I X ( 30 , 30 ) , VECTOR ( 30, 30 ) 

. _ DOUBLE  PRECISION  X ( 30 ) , VAR( 30 )  ,CI  (  30 1 ,  Cl  (301 , 

1T0LERC , w C30»30) ,CEVR (110,30) ,TIME< 110) ,C0NCC 110) 
DOUBLE  PRECISION  D ( 30 , 30 ) , V I CTOR < 30 , 30 ) 

C _ READ  THE  DATA 

READ (  5,1)  N , NT 

RE AD ( 5 , 5 )  ((MATRIX(I,J),J=1,N),I=1,N) 

_ _ READ (  5,2  )  ( X ( J )  ,  J  =  1  ,  N  ) 

READ!  5,2  )  ( Cl ( J ) , J= 1 ,N  ) 

R  E  AD  (  5 , 2  )  (C1(J)  ,J=1,N) 

_ RE  AD ( 5 , 2 )  ( TIME! J) ,  J  =  1 , NT ) 

R  E  AD ( 5 , 4 )  DX 
NORM =2 

TQL  ERC  =  0 • DOO 

W  R  I  T  E  (  6 , 2  2  3  ) 

L I NE$=9 

_ _ CALL  L  INECT  (  LINES,  4, 2) 

WRI TE(6 , 253  )  DX 
WR I TE ( 6 , 220 ) 

LINES  =9 

CALL  L INECT ( L INES ,4, 2 ) 

WR I TE ( 6 » 224  ) 

_  _  WRJ  T E  (  6 , 223  ) 

WRITE(6,231  ) 

CALL  LINECTt  LINES, 1,2) 

I T  E ( 6 , 2  3  2 )  (X(J)  ,J-1,N) 

CALL  L I  NEC  T (LINES, 4,2) 

WR I TE ( 6  »  22  3 ) 

_ _ WRJ  TE(  6,233  ? 

CALL  L INECT (LINES, 2, 2) 

WR I TE (  6,234)  ( C I ( J )  , J  =  1 , N  ) 

CALL  L INECT ( LINES ,4,2) 

WRITE ( 6,223 ) 

WRI TE ( 6, 235 ) 

__ _  CALL  L  INECT ( LINES ,2,2) 

DO  30  J  =  1 ,  N 

30  C1(J)=C1(J)/(DX**2) 

WR I TE ( 6,234)  ( Cl ( J ) , J=1 ,N ) 


1 1 1  ■  • : 

.2TH1UH  Q I  HO  30  3HT  *44 


. 

f  J  v  II  .  V  l  nT  =M 


,  »  •  V,!V,  )  ,>  ! 

. 

(  '  »  1  r  .)  I  v  ,  (  )  ■  .  I  <  jJ  :  • 

T  , 


t  t  { i ,e  ) 

(  t  r  *  (  ,  i-l,  Ut  :  >*  1  >.T  •  )  J 

C  f  U,(  >A>  (  t  )CJ  . 

hm-u(  )i  i  i  %  )  - 

<  . i  u.  ( t )  i j  )  <  s.e )0a 

<  ’  -  -  •  .  >  i  •  ) 


• 

. 

. 

(  .  )  T  I 

if.  I  J  J  I  J  J  A  i 

(ASSt  >37  1 


($»  !  .23  I  J)  i  j  IJ  JJO 


i  •  I~L«  (.L  )X>  (Li.  )  T  15!  . 

(£SS,d)3TIJW 

(  es .  ). ns 


($.  .2'  I!J)T  ) :  /.  I  j  j  J 

( '1.1=1.  (DID)  ( -ACS  ,  I  TIs 


r  .  .  i  .1)  i  Jj/:  j  i  i 

C  *d  )  3T  1 


tf. I =  L  OC 
I S**XC ) \ ( D ID®  ( D ID 
(  t  f -l. ( D I  >  ( .  ’  ,  )  TI 


F-22 


CALL  LINECT (LINES, 4, 2) 

WR I TE ( 6 , 223 ) 

WRI TE (6,2^0 ) 

DO  36  J - I , N 

DO  36  K= 1  *  N 

36 

MATRIX  <J,K)-MATRIX< J,K)/(DX**2  ) 

CONTINUE 

DO  31  J=  1  ,  N 

31 

CALL  L I NECT ( L I NES , 1 , 2 i 

WRI  TE ( 6, 241 ) ( MATRI X( J ,K)  , K=1 ,N) 

CALL  TRANS (N ,DX,D, MATR IX ) 

L I NE  S=  9 

WRITE(6,255) 
call  l  ;  J  '  (  . 

W  R I T  E ( 6 , 2  4 1 )  (D(J,J),J=1,N) 

CALL  LINECT (LINES, 4, 2) 

WRI TE ( 6 , 223 ) 

WRITE (6,259 ) 

DO  50  J=1,N 

_ _ CALL  LINECKLINES,  1,2) 

5^ 

WRITE (6, 241 )  (MATRIX! J,K) , K= 1 ,N) 

CALL  JACOBI ( N, MATRIX,  VECTOR , TOLERC , NORM ) 

WRI TE(6, 22^  ) 

LIMES  =9 

CALL  LINECKLINES, 3,2) 

WRITE(6,2?3  ) 

WRITE (6,242) 

CALL  L INECT (LINES, 2, 2) 

WRITE (6, 23?)  (MATRIX ( J,J) ,J=1,N) 

CALL  L INECT( LINES, 3,2) 

WRITE(6,223) 

WRITE(6,243) 

— 

DO  32  K= 1 , N 

CALL  L INECT ( LINES, 4, 2) 

WRITE!  6,232)  ( VEC TOR ( K , J )  ,  J  =  1 , N ) 

32 

WR I TE ( 6 , 223 ) 

CALL  CHECK( VECTOR, MATRIX, N,W) 

WR  I  T  E  (  6 , 220  ) 

■ — - 

L I NE  S=  9 

CALL  L I NECT ( L I NES ,  1 , 2  ) 

WRI TE ( 6, 244) 

DO  33  J  =  1  ,  N 

CALL  L INECT ( LINES, 4, 2) 

WR I TE ( 6 , 2  32  )  (W(J.K) »  K=  1 »  N ) 

C 

C 

33 

WRI TE ( 6 , 223  ) 

CALCULATE  THE  TRANSPOSE  OF  THE  MATRIX  OF 

THE  EIGENVECTORS 

DO  40  1=1, N 

DO  40  J  = 1 , N 

VICTOR ( I , J)  =  VECTOR< J  ,  I  ) 
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40  CONTINUE 

C  A= ( DC^l )*A(*)*D) 

A  (  4 )  =  I H t  ORIGINAL  COEFFICIENT  MATRIX 
C  D=  T  H  E  DIAGONAL  MATRIX  USED  FOR  THE  CONVERSION 

- OF  MATRI  X  (  A!  *)  )  TO  THE  SYMMETRIC  FORM 

C  A=  THE  SYMMETRIC  MATRIX  DFRIVED  FROM  THE  ORIGINAL 

C  COEFFICIENT  MATRIX  A!*) 

- . c  U=THE  MATRIX  OF  EIGENVECTORS  Of  A 

C  CALCULATE  THE  EIGENVECTORS  OF  THE  ORIGINAL 

C  COEFFICIENT  MATRIX 

_ DO  3  8  1  =  1  ,N _ 

DO  38  J=1,N 

VECTOR ( I , J) =D( I , I) ♦VECTOR (  I  ,  J  ) 

38  CONTINUE 

WRI TEC  6, 220  ) 

L  I  N  E  S=9 

L _ CALLLINECT  (LINES.  3 , 2  ) 

WRITE (6,223  ) 

WRITE! 6, 256) 

CALL  L INECT (LINES, 2 ,2) 

WRITE (6, 232 )  ( MATRI X( J, J ) , J=1 ,N) 

CALL  L  INECT !LINES,3,2) 

_ _ WRITE! 6,223  ) _ 

WRITE!6,257) 

DO  39  K=1,N 

CALL  L  INECT(LINES»3»2) 

WRITE 16,232)  ( VECTOR! K, J ) , J=1,N) 

39  WRITE!6,223) 

_C  (D*Q  )(-!)=  Q ! -1 ) *D( - 1 ) =QT *D( -1 ) 

C  QT=  THE  TRANSPOSE  OF  THE  MATRIX  OF  EIGENVECTORS  OF  A 

C  D ! - 1 )  =  TH  E  INVERSE  OF  MATRIX  D  AS  DEFINED  PREVIOUSLY 

C  CALCULATE  THE  PRODUCT  !OT*D'l) 

DO  41  I  =  1 ,  N 
DO  41  J=1,N 

VICTOR (I »  J  )  =  V I CTOR !I»J)/D(J»J) 

41  CONTINUE 

CALL  SFMIAN!N»VAR»VECTOR»Cl*CI ♦ MAT R I X , T I M E , N T , 

1CEVR , VICTOR) 

WR I TE ( 6  »  223 ) 

WR  I  T  E ( 6  »  22  5  ) 

_  WR I TE ! 6 , 245 ) 

WRI TE ( 6  »  223  ) 

WRITE (6, 264) 

WRITE(6, 223) _ 

WRI TEC 6, 246) 

WRITE  <6,  248) 

DO  34  JJ  =  2»  NT 
J=JJ-1 

WRITE(6»251)  TIME(JJ)  ,  ( C EVR ( J  ,  K ) , K= 1 , 5 ) 

34  CONTINUE 
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( •  ?  S  »  )  1  I 

i  ,  ,  1 J)  T  j  ,11 j  j  , 
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WR I TE( 6,223  ) 
WRITEI6.246) 
WRITE ( 6, 249 ) 
DO  35  J  J  =  2  »  N  T 
J=J J-l 


TIME(JJ),  (CEVR(J»K) »  K=6 , 1 1  ) 


WRITE ( 6, 252 ) 

35  CONTINUE 

. . . . . . . .  FORMAT  STATEMENTS 

FORMAT ( IX, 2 14) 

2  FORMAT ( i OF  8 . 5 ) 

FORMAT ( 1 X , F 1 6 . 8 ) 


5  FORMAT ( 1 1F7 • 4 ) 

220  FORMAT ( IH2) 

221  FORMAT ( 1H, 10X.8H  « .CONTD) 


222  FORMAT ( 1H,// ) 

223  FORMAT { 1H, / ) 

224  FORMAT ( 1H,18X,28H  CONCENTRATION  PRCFI LES-ONE-, 

1 11  HD  I  MENS IGNAL/25X  ,  22H  HOMOGENEOUS  MEDIUM) 

225  FORMAT ( 1H, 20X, 32HS0LUTI0N  OF  THE  DISPERSION  MODEL, 

_ _ 18HEQUAT1QN/20X t 19HUSING  ORDINARY  B.C>  1 

231  FORMAT 41H«30X«12H  GRID  POINTS) 

232  FORMAT (1H,10X,5F11.6) 

-233  FORMAT ( 1H,30X,25H  INITIAL  CONDITION  VECTOR) _ 


234  FORMAT { 1H, 10X,5F12.4) 

235  FORMAT ( 1H,30X»26H  BOUNDARY  CUNDITICN  VECTOR) 

240  FORMAT ( 1H, 3nX , 2 7HQRIGI NAL  COEFFICIENT  MATRIX) 

FORMAT ( 1H, 1^X»1 1F6« 1 ) 

FORMAT ( 1H,30X, 12H  EIGENVALUES) 

.  _  FORMAT  (  1H.3^X,  13H  EIGENVECTORS) _ _ 

244  FORMAT (1H,20X,35H  CHECK  OF  SIMILARITY  TRANSFORMATION) 

245  FORMAT ( 1H,30X,25H  SEMI -AN AL YT I  CAL  SOLUTION) 

246  FORMAT  ( lHt  25Xt29HC0NCENTRATI QNS  AT  GRID  PO INTS ) 

248  FORMAT ( 1 H , 1  NX  ,  5H  TIME,  5X,  2.1  1,  9X,  2h  2,  8X, 

12H  3,  8X ,  2H  4,  8X,  2H  5) 

249  FORMAT ( 1H, 1 5X,  5H  TIME ,9X,2H  6,8X,2H  7,8X,2H  8, 

1 8X , 2H  9,  8X,  2H10,8X,2H11) 

251  FORMAT ( 1 H ,  15X,  F6.1,  2X,  5F10.6) 

252  FORMAT (1H,  15X,  Fo.l,  2X,  6F10.6) 


253  FORMAT (1H, 1 0 X *  1 3 HGR I D  SPACING-,  F11.6) 
2  55  FORMAT ( 1H  » 10  X , 9HMATR I  X ( D ) / 10X , 

1 1 9H ( DIAGONAL  ELEMENTS )) 


256  FORMAT ( 1H,20X, 19H  EIGENVALUES  OF  THE/2CX, 

1 27HOR I G I NAL  COEFFICIENT  MATRIX) 

257  FORMAT ( IH,20X, 20H  EIGENVECTORS  OF  THE/20X» 
127H0RIGINAL  COEFFICIENT  MATRIX) 

259  FORMAT ( 1H, 30X , 27HGR I GI NAL  COEFFICIENT  MATRIX/ 
1 20X , 26H ( CONVERTED  INTO  SYMMETRIC)) 


264  FORMAT ( 1H,25X,18H  SQUARE  WAVE  INPUT, 
1/20X,26HC(9,THETA)=1  FOR  P<THE  TA<C , 
2/20X,2 8HC( 0, THETA )=-l  FOR  C<THETA<2C) 
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STOP 

END 


SUBROUTINE  S EM  I  AN ( N , VAR , VECTOR , C 1 , C I , MATRI X, T I  ME 
1 , NT, C£VR , VICTOR) 


THIS  SUBROUTINE  USES  THE  S EM  1  -  AN AL V T I C A L  SOLUTION 

_D _ TO  EVALUATE  THE  CUNC  ENTR  A  T  T  f)N  PROFILES  AT 

C  VARIOUS  ELAPSED  TI^ES. 

C 

. . . .  DOUBLE  PREC  I  SI  ON  VAk  ( 30  )  tVECTOR  (30y30)  yClC  30  )  » 

l  C  I  (  3  3 )  ATR I  X  ( 30  ,  30  )  »  T  I  M  E  (  110)  , C  E  V  R  ( 1 1 0 , 3 0  )  , 
2VICTOR(30,30) 

, _ 3  , CONST  1  (  1  "  ,3 o )  ,CQNST2 ( 10  ,  30 ) , 300 ( 20 ) ,  E  V  E  N  (  2  0  ) 

DO  8  J  =  1 ,  N 
VAR (  J  )  =  0  .  n 

; _ DO  8  K=  1  ,  N 

VAR  C  J ) =V  ARC J )  +  V I C  TOR (J,K)«C1(K) 

8  CONTINUE 

_ DO  9  J=  1 ,  N _  _ 

C1(J)=VAR(J) 

9  CONTINUE 
_  DO  10  J=1  ,N 

VAR( J)=O.C 
DO  10  K=  1  ,  N 

I _ VAR { J ) = V AR ( J  )+VICTOR(J,K)*CI(K) 

10  CONTINUE 

DO  11  J  =  1 , N 

| _ _  EVEN(J  )  =0 . 0 _ 

11  Ci ( J )= VAR ( J ) 

DO  50  1=1,5 

1, _ DO  60  J=1,N _ 

CONS  T 1 (I »  J )  =  DEXP { (  -MATRIX ( J  ,  J)  ) * ( FLOAT (  I ) /  10 . )  ) 
C0NST2 (I  ,  J ) = 1 .  -CONST  1  (  I  ,  J  ) 

_  60  CONTINUE 

5n  CONTINUE 

DO  51  J J=1 , 5 

L _ DO  13  JK=  1 , 6 , 5 _ 

DO  52  JL  =  1 , 5 
L  =  JKf JL-  1 

• _ DO  15  K=  1 ,  N 

I F ( L -5 )  20,20,21 

20  VAR(K)  =  EVEN<  K) *CONST 1 ( JL ,K )  +  <  MATRI X(K, K) *C0NST1 
_ 1 J  J  L  ,  K  )  *C  I  ( K  )  +CQNS  T  2  (  J  L  ,K  )  »C1  (  K  )  )  /MATRI  X(K  ,J<) 

IF ( L  —  5  )  15,30,15 

30  ODD ( K ) = V  AR ( K ) 

[  _ GO  TO  15 _ 

21  VAR ( K I *000 ( K ) *CONS  TlCJLfK)-(MATRIX(KtK) *C0  NST 1 
1(JL,K)*CI(K) +C0NST2( JL,K)*C1(K) )/MATRlX(K,K) 

IFCL-10)  15,31,15  _ 

31  EVEN( K ) =VAR ( K) 

15  CONTINUE 

LL=(  JJ-1  )*10+L  _  _ _ 
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DO  17  L1=1,N 

_  CEVR(tL,Ll)=0.0 

DO  16  1.2=1,  i 

16  C6VK (LL  »  L  1  ) =CEVR(LL»L1  )+ VECTOR  ( LI ♦ L2 ) *V AR ( L2 ) 

17  CONTINUE 
52  CONTINUE 

18  CONTINUE 
51 .CONTINUE 

RETURN 

END 


W  00 

.--5-  til  I 


SULUTICn  Or  T H if  DISPERSION  MODEL E QUA T  ION 
LSIN'o  UKDIMkY  8.C. 

SL-MI-ANALY1  ICAL  SOLUT  ION 


Square  qave  input 

C( C» THETA  )=1  FUR  0<THETA<C 
C (C, THETA) =-l  FOR  C<THETA<2C 


CUhu  t.NTKAT  I UNS  AT  GRID  PUINTS 
TIME  1  2  3 


0.  I 

0.  7 u  9229 

0.51  1666 

0.2 

0 .  i  .U3  34 

0. 725742 

0.3 

0. 92o401 

C. 828387 

0.4 

0.950320 

0. 380262 

0  .  5 

C . 9 64 789 

C. 9  14294 

0.6 

—  L  •  1  i  o  4  2  C  8 

-0.084435 

0.7 

-0.  731900 

-0.50084  1 

0 . 8 

—  0 . 36  7  3  o  3 

-0. 685772 

0.9 

-C.  311772 

-0.733113 

1 .0 

-0.  >33131 

-0. 849831 

I  .  1 

0.583373 

0.131149 

1.2 

0. 796063 

0. 535558 

1 . 3 

0 .878043 

0.713045 

1 . 4 

0.919933 

0. 803254 

I  .  5 

0 . 9  4  6  4  3  1 

0.868412 

I  .  6 

-C.  5  7  84  75 

-0. 119019 

I  .  7 

-0. 79223 7 

-0.526075 

1 . 8 

-0.  J  7 5 0 4- 5 

-C. 705oC8 

1.9 

-0.91 7573 

-C. 8C2h10 

2.n 

-0.9426  79 

-0. 860814 

2.1 

0 . 8  7  99  3  4 

0. L22o40 

2.2 

0.  793336 

C. 523928 

2.3 

0. 875951 

0.  70  78  5  8 

2.4 

0.918292 

0. 804185 

2.8 

0. 943142 

0. 862213 

2.6 

-C. 579490 

-0.121537 

2.7 

-C. 79303o 

-0. 523158 

2.8 

-C .  3  756  74 

-0.707171 

2.9 

-0. 9L8074 

- 0 . 30  3o42 

3.0 

-0.942970 

-  0.  861765 

3.  I 

0.5  7  8o2  5 

0.121874 

3.2 

0.793143 

0.528324 

3.  3 

0.875 759 

0. 707381 

3.4 

C.91«141 

0. 8038C8 

3.5 

C. 943023 

0.861916 

3.6 

-0.579884 

-0. 121 771 

3.  7 

-0.793110 

-0. 528242 

3.8 

-0.875733 

-0.707317 

3.9 

-  C  .  9  1  8 1  2  0 

-0. 803758 

4.0 

-C. 9 4 30 C 6 

-0.861876 

4.  1 

0.579597 

0. 121302 

4.2 

0. 793120 

0. 5232o7 

4.3 

0. 87574 1 

0. 707336 

4.4 

0 . 9  1  8 1  2  6 

0. 803773 

4.5 

C. 94301 1 

0. 861 888 

4.6 

-0. 879593 

-0.121793 

4 . 7 

-0. 79311 7 

-0. 523260 

4.8 

-0. 375738 

-0.707330 

0. 291627 

0.  1440  62 

0.062142 

0. 556463 

0. 393956 

0.257437 

0.  703163 

0.570310 

0.439045 

0. 791248 

0.687711 

0.576341 

0 . 848165 

0.  76  GO  34 

0.677251 

0. 303712 

0 . 536648 

0.62771o 

-0.  198433 

0. 07 81 o7 

0.293295 

-0.471711 

-0 . 243793 

-0.027146 

-0 . 632840 

-0. 455310 

-0. 268819 

-0. 735247 

-0. 590041 

-0.445111 

-0. 22081 3 

-0.409638 

-0.45C417 

0.26O613 

0. 018294 

-0. 156583 

0.519076 

C. 317917 

0.  1  3  331  1 

66931 7 

0. 512744 

0. 351679 

0. 763556 

0.642302 

0. 510CC-9 

0. 242899 

0 .  ‘+4  46  61 

0 . 50 1 368 

-0.243318 

0.009185 

0. 196650 

-0. 5055C0 

-0. 296313 

-0.101763 

-0 • 658642 

-0.495746 

-0.326 828 

-0 . 755153 

-0.629413 

-0. 49  0  421 

-0. 236279 

-0,434109 

-0.  *+85923 

0 . 248536 

-0.000365 

-0. 1 84469 

0 . 509614 

0. 302379 

0 .  1  1  1  3  7  7 

0. 661887 

0. 50092 1 

0. 334408 

0. 757712 

0.633495 

0.496401 

0. 238298 

0. 437330 

0. 49C641 

-0. 2  4  o  9  4  3 

0.003*+  06 

0. 188192 

- 0 , 508353 

-0.300874 

-C. 1C8440 

-0. 660396 

-0.499339 

-0.332091 

-0. 756930 

-0.632247 

-0. 494573 

-0. 23  7o8 1 

-0. 4  3  63  4  5 

-0. 4891 98 

0. 247430 

-0.002629 

-0.  187053 

0. 508742 

0. 301437 

0. 109338 

0.661199 

0.499823 

C. 3323C0 

0.  757169 

C. o32629 

0.495132 

0.237370 

0 • 436646 

0. 489639 

-0. 24  7281 

0.002366 

0. 187402 

-0. 5C6624 

-0.301300 

-0. 109063 

-0. 661106 

-0.4  99  7)  75 

-0.332583 

-0. 757096 

-0.632512 

-0.494961 

-  9 . 2  3  7  3  1  2 

-0.436554 

-0.489505 

0.247327 

-C. 002 7 94 

-0. 187295 

0. 5  C8o6  0 

0.301357 

C.  109147 

0.661134 

0.499720 

0. 332649 

0.757118 

0.632548 

0.495013 

0. 237830 

0.436532 

0 • 489546 

-0.247313 

0.002816 

0. 1  87328 

—  0 . 508649 

-0.301340 

-0.  109122 
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TIMt 

n.  1 

0. 2 

0. 3 

0.4 

0  •  5 
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1.0 
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1 . 3 
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1 
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135311 
320263 
4 o4943 
380925 
024523 
432192 
1  ^  76C3 
938043 
-C.  2  3  5834 
■6  ,  3  934  55 
•0.250952 
•C.9154C3 
0.20  )067 
0. 57+04 7 
0.462963 
0 . 305746 
0. 05861 7 


r 

0 

r 
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Oi 

**  U 
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\  T 
7 

C. 008024 
n  .  0  8  6  j  5  5 
0. 221377 
•  3612  15 
.485240 
.872950 
.  500  30  1 
. 298972 
.073731 
.131010 
.  2  3  8  1  1  6 
.  2 7 23 68 
0.118131 
0 . 0  6  9  6  8  5 
0.244553 
0. 3779C3 
C. 343824 
0.174174 


02 IJ  POINTS 
8 

3. 002450 
3  .  C  4  4  9 1  5 
0.  14  5742 
0.  2  7199  7 
0.397+11 
0. 505128 
0 . 5 1  o2  5  8 
0. 394204 
0.206511 
0. 007389 
-"'.  1  70637  - 
-0.244633  - 
-G.  1  75787  - 
-0. 032 006  - 
0. 130949 
0. 280843 
0.331871 
0. 244793 


O 

0 

C 

o 

0 


0. 


0. 

r\ 

V  • 

r\ 

-  • 

n 

S-  • 

s-  • 

0. 

O 

-  • 

0. 

r. 


9 

000683 

022105 

093812 

203595 

326053 

442377 

504102 

449  3  36 

303469 

118351 

067521 

19531 7 

198985 

102064 

04252C 

193491 

29o840 

279351 


-0.49499  r 

10 

11 

0.000209 

0. 000148 

0. C12004 

0. 010503 

0.066013 

0.061690 

0. 1 63736 

0.157421 

0.282670 

0. 275732 

0.402082 

0.395570 

0. 487853 

0. 484963 

0. 474244 

0. 477882 

0. 357664 

0. 366139 

0.184357 

0.  194838 

0.002704 

0.007o94 

-0. 156004 
-0.203451 
139232 
009476 
142033 
266651 
291132 


-  r 

-C 

n 

n 

0 


-0.  149446 
-0. 203861 
-0. 144984 
-0.017714 
0.133455 
0. 261556 
0. 292710 


1  .9 

- C .  16  5+69 

-0. 0254  3  5 

0. 086544 

0  .  1 5  5  6  d  3 

0. 208615 

0. 215296 

2.0 

-C .347165 

-0.209622 

-0.087369 

0.007736 

0.064328 

0. 073302 

2.  1 

-0.44 1 756 

-0.350337 

-0. 24o326 

-0. 155793 

-C.C98697 

-0. 039536 

2.2 

-0. 269015 

-C  .  322065 

-0. 305017 

-0. 265494 

-0. 232428 

-0. 226371 

2.3 

-C. 045416 

-0. 157004 

-0. 225596 

-0. 254606 

-0. 264112 

-0. 265326 

2.4 

0.  176404 

C. 038984 

-0. 069815 

-C.  140  122 

-C.  1  C/  7288 

-0.  193680 

2  .  5 

C . 3  5  :>362 

0.220314 

0.101070 

0. 007678 

-0.04749 5 

-0. 056242 

2.6 

C. 448240 

0. 358774 

0.257243 

0.  167958 

0.111981 

0. 102999 

2.7 

0.294131 

0. 326722 

0. 313237 

0.275093 

0.24291  1 

C.  237-+05 

2.8 

?. 349453 

0. 162256 

0. 230063 

0. 262180 

0.272384 

0.273710 

2.9 

-0.173219 

-0.034340 

0.074933 

0. 152099 

0 . 1  9  3  8 1  5 

C. 200296 

3.0 

- C . 352369 

-0.217044 

-0.097032 

-C. 002962 

0.052645 

9.051462 

3.  1 

-0. 446257 

-0. 356194 

-0. 254057 

-0.  1642  36 

-0. 1C  791 7 

-0. 093330 

3.2 

-r . 2925oo 

-0.326686 

-0.310723 

-0. 272157 

-0.239704 

-0.234245 

3.  3 

-0.0+8218 

-0. 160650 

-0. 223099 

-0.259363 

-0.269354 

-0. 27 1145 

3.4 

174  193 

0. 0361 C7 

-0.073363 

-0.  1502  71 

-0. 191819 

-0 .  198272 

3.5 

C. 353638 

0.213044 

0.096267 

0 . 00 4'+ 05 

-0.05107 0 

-3. 059366 

3.6 

C.44o364 

0. 356963 

0. 255031 

0. 16  53  75 

0. 109 160 

0.  100140 

3.  7 

0.293045 

0.327309 

0.311492 

0.273055 

C . 2  40o3  5 

0.  2352  39 

3.8 

C  .  0  4  a  5  9  6 

0.161141 

0. 228706 

0. 2605  72 

0. 270623 

0. 271930 

3.9 

-0.  1  7  33  95 

-0.035 720 

0. 073847 

C. 150330 

0.192429 

0.  19689  1 

4.0 

-0.3534C3 

-0.21 7738 

-0 . 097889 

-0. 0  0  3  9  o  3 

0.051552 

0.060354 

4.  1 

- ° . 446673 

-  0 .  3  5  o  7  4 1 

-  0.  25473  3 

-0.165026 

-0. 1^8730 

-0. 099755 

4.2 

-0, 292693 

-0.327119 

-0. 311257 

-0. 272780 

-C. 240385 

-0. 234935 

4.3 

-0 . 04 3480 

-0.160991 

-0. 228520 

-0. 2o0355 

-0.270391 

-0. 2  7 lo90 

4.4 

0. 1 7 3986 

0. 035338 

-  0. C73700 

-C. 150659 

-0. 192242 

-0.  198702 

4.5 

0 . 353474 

0.217832 

0. 09.3005 

0.004098 

-0.051404 

-0.060205 

4.6 

0.446735 

0. 35631 5 

0. 254824 

0.  165133 

0. 106396 

0. 099873 

4.7 

0 .292943 

0.327177 

0. 311329 

0. 272364 

0.240476 

0. 235023 

4 . 8 

0. 04 651  o 

0.  161037 

0.226577 

0.260421 

0. 27C464 

0.271763 

4.9. 

-0.  17  >953 

-0.035302 

0. 073  745 

0.  150711 

0. 1923C0 

0. 198760 

5.0 

-0 . 353452 

-0.2173 C 3 

-0.097969 

-0.00*057 

0.051450 

0. 060250 

• 

* 

SOLUTiUJ  OF  TmE  DISPERSION  MODEL EwUAT ION 
U  S  I  N  ^  LA  Jon/ylKTS  6  •  C  • 

SEH I -AN AL YT I  CAL  SOLUT I  UN 


S-.JJAKE  Vi  A  V  E  INPUT 
C ( 0  » THETA) =1  FOR  0  <  T  H  E  T  A  <  C 
C ( 0 , The TA ) =-  1  FOR  C<THFTA<2C 


CGNCtNTRATiuNS  AT  GRID  POINTS 


TIME 

1 

2 

3 

4 

5 

C.  1 

0.42 2828 

0. 258009 

9.  1  377  72 

0 . 0645^+6 

0.026697 

0.2 

n. 5 93431 

0  •  4  5  6  5  4  9 

0. 328045 

0. 219383 

0. 136324 

C.  3 

0  •  o  9  d  6  5  7 

0.587523 

0 . 4  7 64 74 

0.365751 

0.268485 

0.4 

C .  7 ob  7 b2 

0.679660 

0. 584409 

0.486168 

0. 390473 

C  .  5 

0.817199 

0. 74  7261 

0  •  6  0  o  0  6  1 

0. 582679 

0. 494972 

O.o 

0.009141 

0. 282283 

0.457194 

0. 530784 

0. 528911 

C.  7 

-0. 803341 

-0.075447 

0.127364 

0.233126 

0. 332043 

O.a 

-0.48 7445 

-0. 306567 

-0.  125254 

0.040500 

0.  1  7  7573 

0. 9 

-O.o  1  0021 

-0.46o365 

-0. 312681 

-0.  159o26 

-0.016927 

1 . 0 

-O.o 06825 

-0. 581 992 

-  0 . 4  5h  1  5  3 

-0.319425 

-C. 185007 

1  .  I 

0. 084960 

-0.  152229 

-0.286811 

-0.317510 

-0. 272421 

1.2 

C  .  3  7  76  9  3 

0. 179011 

0. C 095 70 

-0. 109506 

-0. 1 69904 

1.3 

n  .  5  4  7  1  34 

0. 389804 

0. 236097 

0.  101424 

-0. 002066 

1.4 

C  .  o  5  8 1  9  o 

0. 533772 

0.403114 

C. 276034 

0.162199 

1  .  5 

C . 73595o 

0. 636857 

0. 527934 

0.415160 

0.305309 

1.6 

-0.053 C 19 

0. 197096 

0 •  34  734  6 

0.396407 

0. 372084 

1.  7 

-C .351725 

-C. 142194 

0. 040228 

0. 1 74o  3 1 

0.252497 

1 .8 

-C.525o24 

-0.359514 

-0. 195048 

-0.047604 

0.070529 

1.9 

-0.640479 

-0. 508802 

-0. 3o92  2  4 

-0.231514 

-0. 1C  5437 

2.0 

-0. 721338 

-0.616241 

-0.499922 

-0. 378308 

-0.258242 

2.1 

0.065097 

-0.1 80056 

-0.  326-17  3 

-0. 365684 

-0. 333962 

2.2 

0.361713 

0. 155292 

-0. C  2 1 044 

-0 .  149342 

-0. 220124 

2.3 

0.833891 

C. 371185 

0. 2 1 0938 

0.068563 

-0.043679 

2.4 

C .047325 

0.513469 

0. 332391 

0. 243890 

0. 127708 

2.5 

0.  727009 

0.624252 

0. 510335 

0.392714 

0.276715 

2.6 

-0.060396 

C. 186o95 

0.333219 

0. 377831 

0.348376 

2.7 

-0 . 35  781  7 

-C. 150788 

0. C28545 

0. 15925C 

0.232836 

2.8 

-0. 530661 

-0.366621 

-0.204717 

-0.060346 

0.054224 

2.9 

-0. o44647 

-0.514d85 

-0. 377232 

-0. 242074 

-0.  1  1  69o  I 

3.0 

-0. 724788 

-C. 621  113 

- } . 30o  5  5  6 

-C . 387061 

-0 . 269459 

3.  1 

0.062239 

-0. 184092 

-0.329670 

-0.373142 

-0. 342356 

3.2 

0. 359345 

0. 152947 

-0. C256C1 

-0. 155360 

-0.227842 

3.3 

0. 53  192  8 

0 . 3  6  8  4 1-2 

0.207159 

0.063573 

-C. 050081 

3.4 

0 • o4  5698 

0.5161 70 

0. 379258 

0.244751 

0.122397 

3.5 

C. 725660 

0. 622340 

0.508237 

0. 389281 

C. 272310 

3.6 

-0.061515 

0.185114 

0. 331064 

0.374984 

0. 34472 1 

3.  7 

-0. 358745 

-0. 152099 

0.026756 

0.  156388 

C. 229804 

3.8 

-0.^31430 

-0. 3677C9 

-0. 2062 CO 

-0.062305 

0.051709 

3.9 

-0. 045285 

-0. 515567 

-0. 378462 

-C. 243699 

-0. 121047 

4.0 

-C. 725317 

-0.621661 

-0. 50757  7 

-0.366409 

-0.271190 

4.1 

0.061799 

-0. 18471 2 

-0.33051 7 

-0. 374260 

-0.343792 

4.2 

0. 35898  1 

0. 152433 

-0. C26303 

-0. 1 5  o  2  6  8 

-0.229033 

4. 3 

0. 53162  6 

C.  36  7965 

0.20O577 

0.062803 

-0.051C69 

4.4 

0.645447 

0.515616 

C. 378774 

0.244113 

0.  121578 

4.5 

0. 725452 

0. 622052 

0. 507836 

0. 336752 

C. 271630 

4  •  6 

“0.06166 8 

0. 184870 

0. 330732 

0.374544 

0.344157 

4  .  7 

“0. 358868 

-C. 152302 

0. 026482 

0.  166523 

0. 22933o 

4 . 6 

-0.531 549 

-0.30/677 

-0. 206429 

-0.062698 

0.051320 

4 . 5 

- C . 645 3 

-0.515726 

-0. 378652 

-  0  .  >4  .  )  59 

-0.121  *69 

' 

. 


5.0 

-0.  72  63  99 

-0.621977 

-0.  507  734 

CuNC  L.M  T  MAT  I  uf\i$  AT 

Okie)  points 

TIME 

6 

7 

8 

C.  1 

0."r'9825 

0. 003244 

0. 000968 

0.2 

C  •  )  7  6  6  9  5 

C.C42247 

0.021168 

0.3 

C. 137411 

0 . 1 2  4  3  9  7 

0. 078875 

0.4 

0.302399 

C . 226936 

0  .  1  6  3  8  6  9 

C  .  5 

9.409185 

0. 329606 

0. 260519 

0.6 

0.433689 

0.420444 

0. 355869 

0. 7 

C. 426993 

0. 429926 

0. 407093 

0.8 

0 . 2  7  d  4  4  2 

0. 332312 

0 .  3  7  <+  5  6  3 

C  .  9 

0.13657 5 

0. 205374 

0. 277704 

1 . 0 

-0.  3 5 & 2 C' d 

0.054468 

0. 147769 

1  .  1 

-  C  *  1  d  u  0  6  6 

-0. 08 59 05 

0. 009400 

1.2 

-C. 176290 

-0.  142626 

-0. 067366 

1  .  3 

-0.068199 

-0.05  7 923 

-C. 098865 

1.4 

0.  36  922  3 

0.0C1126 

-0. C4241  3 

1 . 5 

C. 204901 

0.  119184 

0. C51529 

1 .6 

0 . 303258 

0. 231425 

0.158500 

1  .  7 

C  .  2  7  80  1  4 

0.26926  1 

0. 228257 

1 . 8 

0.152792 

C.  1  99399 

0. 216749 

1.9 

0.00  108  3 

0. 0  8  34  12 

0. 140835 

2.0 

-0. 146496 

-0.  0433  30 

0.03C512 

2.  1 

-0.25975 7 

-0. 172921 

-0. 090196 

2.2 

-0.237747 

-0. 21 5640 

-0. 171440 

2.  3 

-0.119363 

-0. 159010 

-0. 169520 

2.4 

0.026657 

-0.049373 

-0. 101594 

2  .  5 

C . 169516 

0.076675 

0.002079 

2.6 

C .  2  78859 

C. 196034 

0.  1  1  7256 

2 . 7 

C. 253596 

C. 234823 

0. 193903 

2.8 

0.  132519 

0. 174929 

0  •  1 88 1 64 

2.9 

-0.015747 

0 . 06 30c  1 

0.11 7066 

3.0 

-0.  Io0  6o5 

-0.066715 

0.010760 

3.  1 

-C. 271350 

-C.  186931 

-0. 106603 

3.2 

-0.247366 

-0.22  72  78 

-  0 . 1 o5  064 

3 . 3 

-C. 12735" 

—  0.  168ot9 

-0. 180830 

3.4 

C. 02003 5 

-0. 05  7d 89 

-0.  1  10982 

3 . 5 

C. 164022 

0. 070023 

-0. C05712 

3.6 

0.2  7 4 3 0 C 

C.  190515 

0. 110790 

3.7 

C . 24981 4 

C. 230243 

0 .  1  8  8  5  3  8 

3.3 

0. L  2  936  1 

0. 1 71129 

0. 16371  2 

3.9 

-0.01835" 

0. C59929 

0.  113373 

4.0 

-0. 162624 

-0. 068330 

0. CO  7696 

4.1 

-C. 273141 

-0.  1891  1 1 

-0. 109145 

4.2 

-C. 243852 

-0.229078 

-0. 137173 

4.3 

-0. 128583 

-0. 170163 

-0. 182580 

4.4 

0.019012 

-0.059127 

-0. 112433 

4.5 

0. 163173 

0.068995 

-0. Cp69 1 7 

4.6 

0.273597 

C.  189663 

0.  109791 

4 . 7 

0.249230 

0. 229536 

0.137710 

4. 8 

0. 123396 

0.  170542 

0.  133025 

4.9 

-0.018752 

0.059442 

0.112803 

5.0 

-C.  162957 

- C .  06  3  7  34 

0. 007223 

-0. 3d 86 17 


9 

0.000265 
0.010105 
0.0490  10 
0. 1 1 d3  72 
0. 206707 
0.301475 
0.375575 
0. 385091 
0. 324677 
C. 217167 
0.086717 
-C. 030198 
-C.  0838  1  7 
-  C  • 0b8o6  7 
0. C03667 
0. 100144 
0. 187494 
0. 215732 
0. 175992 
0.086393 
-0.023407 
-0.  123ol7 
-0.  162605 
-0.  131334 
-0.051707 
C.  3538  74 
0.  146912 
0. 183602 
0. 149261 
0. 06o 170 
-C. 041873 
-0. 136955 
-0. 175340 
-0. 142497 
-0.060483 
0 . 046591 
0. 142869 
0.178588 
0. 145101 
C. 06  2  7  18 
-C . 044737 
-0. 141331 
-0. 177312 
-0.  144042 
-0. 061840 
C . 04  5466 
0. 141935 
C.  177813 
C . 144458 
C  .  06  2  1 8  5 


0.  2  7  1457 


10 

C. 000080 
0.0C  5348 
0.033518 
0.092  642 
0.174877 
0.267933 
0. 352015 
0. 3  85409 
0. 34883 7 
0.256707 
0.133233 
0.008622 
0. 068585 
0.074884 
0.022457 
0.065472 
0.158959 
0. 209319 
0. 192705 
0. 120868 
0.016587 
0. 090623 
0.  152465 
0.145438 
0.081593 
0. 016035 
0.117710 
0. 174952 
0. 164103 
0.097083 
0.003181 
0.1 0 7045 
0.166103 
0.156760 
0. 090991 
0.008235 
0.111237 
0. 1 6  9 5o  1 
0. 159646 
0.093385 
0. 306249 
0. 109590 
0. 1682 14 
0.158512 
0.092444 
0. 007 029 
0. 110237 
0. 16875 1 
0.156958 
0.092814 


11 

0.000056 
0. 004646 
0.031125 
0. 08859  1 
0. 169816 
0.262613 
0. 348106 
0. 385252 
0. 352493 
0. 262916 
0.  140627 
0.014932 
-0.065966 
-0.076198 
-C. 026535 
0. 059965 
0.  1542  3  8 
0. 206108 
0.  1952  16 
0.  125958 
0. 022944 
-0. 085240 
-0.  153658 
-0.  147453 
-0.036268 
0. 010022 
0.  112613 
0.  173383 
0.  166315 
0.  101922 
0.002968 
-0.  101835 
-0.  164440 
-0.  153895 
-0. 095766 
0.002140 
0.  106072 
0.  167955 
0.161811 
0. 098185 
-0. 000133 
-0.  104407 
-0.  166574 
-C.  160665 
-0. 097235 
0.000921 
0.  10  50o 1 
0. 1671  l  7 
0.  161115 
0.097608 


• 

■ 

. 

c 

c 

c 

c 


C 

c 

c 

c 

c 

c 


c 


c 


SOLUTION  OF  THE  DISPtRSION  MODEL 
.DIMENSIONAL  HOMOGENEOUS  CASE 


EOUAT ION-uNE 


INPUT  DATA 
N=  THE  NUMBER  OF  GRID  POINTS. 

AT  =  THE  TOTAL  NO.  OF  TIMES. _ 

MAT R I X=THE  COEFFICIENT  MATRIX 

X-  THE  DIMENSIONLESS  DISTANCES  OF  GRID  POINTS. 
C I ~  DIE  INITIAL  CONDITION  VECTOR. 

Cl=  THE  BOUNDARY  CONDITION  VECTOR. 

TIME=  THE  DIMENSIONLESS  TIMES. 


OX=  THE  GRID  SPACING. 

REAL -8  DX,W1,BB,BB1 

DOUBLE  PRECISION  MATRIX(30,3r),VECT0R(39,30) 
DOUBLE  P.RECXS1QN  X  (  ?  r  )  ,  V  A R  (  3 C  )  ,  C  I  (  3  ■“'  )  ,  C  1  (  3  )  , 
1TOLERC  fN (30 9 30) » C6VR( 110 1 30) , TIME! 110) ,CONC (II'; 
DOUBLE  PRECISION  0< 30 , 30 ) , V IC TOR ( 30 , 30 ) 

_ READ  THE  DATA  _ 

R  EAD (  5,1)  N , NT 

RE AD (5, 5)  ( (MATRI X ( I , J ) , J=I ,N ) , 1=1 ,N) 

-MAPI  i>,  2  )  <  X(  J  )  ,  J=1  ,N  ) 


READ(  5,2  )  (Cl (J)  ,  J  =  I , N  ) 

RE  AD  (  5,2  )  (CKJ)  ,J  =  1,N) 

RE AD ( 5 , 2 )  (TIME(J),  J=l. NT) 

RE  AD ( 5 , 4 )  DX 
NORM =2 


TOLERC^O. DQQ 
MRITE<6»223) 
L I NE  S=9 


CALL  L  INECT ( L INES  ,  l ) 
WRITE(6,253)  DX 
WRI TE ( 6 , 220 ) 

LINES  =9 

CALL  L INECT (LINES *4* 2) 

WRI TE( 6,224) 

WRITE(6,223) 

WR  I  T E  (  6 , 23 1 ) 

CALL  L  INECT( LINES ,1,2) 

WRITE (  6,232)  ( X ( J )  ,  J  =  1  ,  r  ) 

CALL  L INECT (LINES ,4, 2) 

WRI TE( 6,223) 

WRI TE(6,233) _ 

CALL  LINECT ( LINES»2,2) 

WR I TE ( 6,234)  ( C I ( J )  ,  J =  1 ,  N  ) 

CALL  LINECT (LINES, 4, 2) 

DO  30  J=1 ,N 
30  Cl ( J)=C1 ( J ) / ( DX^^2 ) 

_ wRJ  TE  (  6, 2JM  ) 

WRI TE( 6,235 ) 

CALL  LINECT (LINES,2,2) 

WRI TE(6,2b7) 


. 

. 


t  i  I  t  X  J,  3: 

)  '■  ■>  *  •  * » *  )  .t  )  :  ;  i 

>M  H  J , \  <  ,  )(  /  )I,  I  j  y f)( 


(v  t  f  CL »  (UIO)  t  S,  ■!  ) (JA  3fl 

.  LU2EJLT1 

« )QA3fl 

. 

(<  SS.e)3Tl«! 

* 


i  ■  .  :  .  >  -  j  J  J 


C€SS«4)3T !*b 
Li<UlIJiw 


(<:»  ^  .  2  3  H I  J)T03HJ  J  JJAO 

)\a>  I3=a>  n 

(  f  SS_td>3T  I  h 


•  (  t  i :  t  i  -  4 
<S,S,23HI  J)  mwi  J  J  J  AD 
(T«  t  >)  ,  !  , 


WR I TE ( 6 , 234 )  (Cl  (  J)  ,  J=1,M) 

CALL  LINECT (LINES, 4,2) 

WRITE(6,223) 

WRITE(6,24«'"') 

„ _ DO  36  J  =  1.N _ 

DO  36  K=1,N 

MATRIX ( J ,K)=MATRIX( J,K)/(DX**? ) 

36  CONTINUE 
DO  31  J  =  1  ,  N 
CALL  LINECT(LINESt 1,2) 

- 31  WRITE  (^241  )  (MATRIX!  J.K)  ,  K  =  1  « N  ) _ 

CALL  TRANS< N,DX t D, MATRIX) 

L  I  N  E  S=  9 

WRITE! 6*2551 

CALL  LINECT (LINES, 1,2) 

WRITE(6,241)  ( D ( J , J ) , J=1,N) 

_ CALL  LIN£CT(LINES.4.7  ) _ 

WRI TE ( 6 , 223 ) 

WRITE (b, 259) 

L _ _  nn  5^  J  =  1 ,  N 

CALL  LINECT! LINES, 1,2) 

WRITE (6, 241 )  (MATRIX! J,K) ,K=1,N) 

- CALL  JACOBI (N, MATRIX,  VECTOR .TULERC . NORM ) 

WRITE(6,2?^) 

LINES  =9 

CALL  LINECT (LINES. 3*2) 

WR I T  E ( 6  »  2  23 ) 

WRI TE ( 6 , 242 ) 

_ CALL  LINECT(  LINES, 2, 2)  _ _ _ 

WRITE(6,232)  ! MATRI X( J , J ), J=1 ,N) 

CALL  L INECT ( LINES, 3,2) 

WRITl(6,2?3) 

WRI TE ( 6, 243 ) 

DO  3  2  K=  1 ,  N 

_ CALL  L  INECT (LINES, 4 ,2) 

WRITE (  6, 2  32)  ( V FC TOR ( K , J ) , J  =  1 , N ) 

32  WRITE(6,223) 

_ _  CALL  CHECK! VECTOR * MATRI X,N,W) 

WRITEC6, 220 ) 

LINES=9 

_ CALL  LINECT  (LINES, 1,2) _ 

WRI TE ( 6,244 ) 

DO  33  J  =  1 ,  N 

_ CALL  L INECT (LINES, 4, 2) 

WRITE (6,232)  (W(J,K)»K=1,N) 

33  WRITE(6,223) 

C _ CALCULATE  THE  TRANSPOSE  OF  THE  MATRI X  OF 

C  THE  EIGENVECTORS 

DO  40  I  =  1 ,  N 
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VICTORt I , J)=VECTOR< J, I ) 

4?  CONTINUE  _ 

A* { DC-1 )  *A( * ) *0 ) 

A(*)=THE  original  coefficient  matrix 
- PfjTHF  oj  agonal  matrix  used  for  the  conv  e  r  s  ion 

OF  MATRIX  (A(*))  TO  THE  SYMMETRIC  FORM 

A=THE  SYMMETRIC  MATRIX  DERIVED  FROM  THE  ORIGINAL 
_ _  COEFFICIENT  M ATRI X  A ( ♦ ) 

Q=THE  MATRIX  OF  EIGENVECTORS  OF  A 
CALCULATE  THE  EIGENVECTORS  OF  THE  ORIGINAL 

_ COEFFICIENT  MATRIX 

DO  33  1=1, N 
DO  33  J=  1  ,N 

_ _ VECTOR  (  I ,  JI«=D(  1,1)  ^VECTOR  (1  ,  J  ) 

38  CONTINUE 
WRITE(6,220) 

L  I  N  E  S  =  9 _ 

CALL  LINECT(LINES,3,2) 

WRI TE { 6 , 223 ) 

_ WRITE (6, 256 ) 

CALL  LTNECfi.  LINES  ,2 , 2  ) 

WRITE (6, 232)  ( MA TR I  X ( J , J ) , J =  1  , N ) 

CALL  LINECT (LINES, 3«2) 

WRI TE<  6, 223) 

WRI TE(6,257) 

_  00  39  K= 1 | N  _ 

CALL  LINECT < LINES, 3,2) 

WR 1 T  E ( 6 , 2 32  )  ( V EC TOR ( K , J )  ,  J= 1 , N ) 

39  WRITE!  6,223) _ _ 

(D*U)  (-1 )=  Q(-1)*D<-1)=QT*D(-1) 

QT=THE  TRANSPOSE  OF  THE  MATRIX  OF  EIGENVECTORS  OF  A 
D ( -  1 )  =  TH  E  INVERSE  OF  MATRIX  0  AS  DEFINED  PREVIOUSLY 
CALCULATE  THE  PRODUCT  (QT*D,1I 
DO  41  I = 1 , N 
DO  41  J=l,N 

VICTOR ( I ,J)=VICTOR( I , J )/U( J,  J) 

41  CONTINUE 

CALL  S EM  I  AN ( N , VAR f VECTOR ,C1,CI , MAT RIX>TIME ,NT » 

ICE  VR  « VICTOR  I 
WRI TE(6,223) 

WR  I  T  E  (  6 , 2  2  3  ) 

WRITE (6, 245) 

WRITt(6,223) 

WR I TE ( 6,264  > 

WRITE ( 6f 223 ) 

WRI TE ( 6, 246) 

WRI TE( 6, 243) 

DO  34  J=1 , NT 

34  WRITE(6,251)  TIME(J)*  (CEVK ( J ,K ) , K= 1 , 5 ) 

WRI TE(6,223)  _ __ 
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WRI TE ( 6, 246) 

u _ WPI  T,  (6,2491 

DO  35  J«1 » NT 

?6  WRITF(6,252)  TIME(J),  ( C EVR ( J , K )  , K=6 , 1 i  ) 

[ _ W 1  =  1 0 . 0 _ _ 

BB  =  0 . 2  5 
B61=0. 75 

. . . . no  si  j*i»nt 

CONC  (  J  )  =  B  *SIN( W1*TIME ( J)  )  +Bb  1 

51  CONTINUE 
_ WRI  TE  ( 6 , 22n  ) 

WR I TE ( 6  »  223 ) 

WRITE(6,268) 

DO  5  2  J=  1 , NT _  _ _ 

WRITE ( 6»  269 )  TIME ( J ) 9  CONC ( J ) »  C EVR (  J  ,  1 1 ) 

52  CONTINUE 

L£ _ _ _ FORMAT  STATEMENTS 

1  FORMAT ( 1  X ,  2  I  4 ) 

2  FORMAT ( 1 0F8 • 5 ) 

4  FORMAT (!XtF16.8)  _ 

5  FORMAT ( 1 1F7.4) 

220  FORMAT (1H2) 

_ 221  FORMAT (lH.jnx.8H  . . CON  TD ) 

222  FORMAT ( 1H,// ) 

223  FORMAT ( 1H , / ) 

L _ 224  FORMAT < 1H, 13X,28H  CONCENTRATION  PROFILES-ONE-. 

1 11HD I MENSIONAL/25X t  22H  HOMOGENEOUS  MEDIUM) 

225  FORMAT ( 1H,20X,32HSQLUTI0N  OF  THE  DISPERSION  MODEL, 

. _ 18HEQJATIUN/20X,  19  MUSING  ORDINARY  6.  C.  ) _ 

231  FORMAT ( 1H, 30X, 12H  GRID  POINTS) 

232  FORMAT (1H,10X,5F11.6) 

_ 233  FORMAT ( 1 H ,  3  0  X ,2 5 H  INITIAL  CONDITION  VECTOk) 

234  FORMAT ( 1 H , 1 0  X , 5  F 1 2 •  4 ) 

235  FORMAT ( 1H, 30X,26H  BOUNDARY  CONDITION  VECTOR) 

240  FORMAT (lH,3nX,27H0RIGINAL  COEFFICIENT  MATRIX) _ 

241  FORMAT (1H, 10X, 1 1F6. 1 ) 

242  FORMAT ( 1H, 30X, 12H  EIGENVALUES) 

, _ 243  FORMAT (lHt30Xi!3H  EIGENVECTORS) 

244  FORMAT (lH,20Xf35H  CHECK  OF  SIMILARITY  TRANSFORMATION) 

245  FORMAT ( IH,30X,25H  S EM  1  - ANAL YT I C AL  SOLUTION) 

2  4o  FORMAT ( 1 H ,  2 5 X  , 29HCQNC ENTR A  FI CNS  AT  GRID  POINTS) 

248  FORMAT ( 1H, 1 5X,  5H  TIME,  5X ,  2H  1,  9X,  2H  2,  8X, 

12H  3,  8X ,  2 H  4,  8X,  2H  5) 

l  249  FORMAT ( 1H. 1 5X,  5H  TIME.9Xt2H  5,8X,2H  7,8X,2H  8, 

18X, 2H  9,  8X«  2H1 0 , 8X,2Hl 1 ) 

251  FORMAT ( 1 H ,  15X,  F6.1,  2X,  5F10.6) 

252  FORMAT ( 1 H ,  15X,  F6.1,  2X,  6F10.6) 

253  FORMAT ( 1H, 10X, 13HGR ID  SPACING=,  Fll.oj 
255  FORMAT ( 1H,10X,9HMATRIX(D)/10X, 

l 19HI0I AGONAL  ELEMENTS))  • 
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25b  FORMAT ( 1 H ,20 X , 1 9H  EIGENVALUES  OF  THE/20X , 

- 1.  2  7HURI  G  I  NAL  COEFFICIENT  MATRIX) 

257  FORMAT! lH»20Xf20H  EIGENVECTORS  Or  THE/20X* 
127H0RIGINAL  COEFFICIENT  MATRIX) 

1.59  FORMAT  Qjjjjl  j^_27  H  0  R  I  G  I  NAL  CQEFF  Tf.  I  FNT  MA  T  R  I  X  / 

1  2'~X,  26h(  CONVERTED  INTO  SYMMETRIC)) 

264  FORMAT { 1 H ,40 X , 1 7H  SINUSOIDAL  INPUT, 

I  /  3 0  X  ,  2  L H C  (  3  , Q)=0.7 5+0.2 5S )NWQ) 

267  FORMAT ( lHf10X, 30HS ( 0 )-0 • 24762 ( 0* 25SI N< WO ) +  . 75 ) ) 

268  FORMAT ( 1H,10X,5H  T IME,  10X, 12 H INPUT  SIGNAL, 

_ I  IPX,  1 4ri  OUTPUT  SIGNAI  ) 

2  69  FORMAT ( 1 H , 1  OX , F 6 . 1 , 10X , F 1 2 . 6 , 10 X , F 1 2 . 6 ) 

STOP 

END 
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VARIOUS  ELAPSEO  times. 


RIAL*8  CONST » w, 61 ,o2 *J3 3,  CONST 1 t CONS  TP , 
lCONST3,CONST4,CONST5 

DOUBLE  PRECISION  V AR ( 3" ) , VECTOR ( 3f , 30 ) , C 1 ( 30 ) , 
-LCl  (3°)  t  MATIUAUi^^lJ_I.IME(  IIP)  »  C  E  V  k  (  1  K  ,  30  )  , 
2VI CTOR (30  *30 ) 

DO  8  J  =  1  ,  N 
VAR ( J i~QmQ 
DO  8  K  =  1  ,  N 

VAR ( J ) =V AR( J )+VICTOR( J ,K) *C1 ( K) 

_  .  8  CONTINUE _ _ 

DO  9  J  =  1*N 
9  Cll J)=VAR(J ) 

DO  IQ  J  =  I »  N 
VAR  CJKO.O 
DO  10  K=1,N 

_ _ VAR  (  J  )  -  V  AR  (  J  )  »VICTQR(J.K)*CI  (K)  _ _ 

10  CONTINUE 
DO  11  J  =  1  »N 
n  CI  ( J  )  =  V  A  R  (  J  ) 

DO  18  J=1,NT 
DO  15  K-=  1  *  N 

_ _ W=10.0 _ 

B  1  =  0 . 2  5 
B2=0. 75 
83=1.0 

C ON$T=-MATR I  X ( K  ,K 
CONST  1 =M ATR I  X ( K  ,K  ) /W 

; _ CQNST2=B2/ MATRIX!  K  ,K  ) _ 

C0NST3  =  B1/ ( B3+C0NST  1  **2 ) 

CON ST4=C UNST  3* ( ( CONST  1 /W ) *S I N ( M *T I  ME  (  J ) ) 
l-( B3/W>*C0S( W*TIME( J) ) )+C  QNSJ2 
CONST  5= ( C0NST3/W) -CONST 2 

15  VAR (K) =( DEXP(CONST )  *C  I (  K  )  +  C1(K)*C0NST4 

L_ _ 1  +  ( D  E  X  P ( CONST ) *C 1 ( K ) )*CUNST5) 

DO  17  L 1  =  1 »  N 
CEVRC J,L1  )=0.0 
DO  15  L  2  =  1  *  N 

16  CEVR ( J  ,L  1)  =C EVR ( J , LI )♦ VECTOR ( L It  L2 ) *V Ak( L2 ) 

17  CONTINUF 

18  CONTINUE 


RETURN 

END 
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SCLUTICN  OF  THE  DISPERSION  MODEL  EQUAT  ION 
USING  C^DINAkY  b.C. 

SF M -ANALYTICAL  SOLUTION 


SINUSOIDAL  INPUT 

CIO, 

0)=0 .75+0. 

25SINWQ 

CONCENT R 

ATI  ON S  AT 

GRID  POINTS 

TIME 

i 

2 

3 

4 

5 

0.9 

r  .  7  6  r'  0  0  ° 

9. 750000 

n. 7 500° 9 

0. 759090 

0. 750000 

0.1 

9  .  8  7 1  8  8  3 

0.811886 

9. 777841 

9. 761294 

0. 754286 

C .  2 

C. 949547 

0. 901920 

0. 853672 

0.814534 

0. 787087 

0 . 3 

C  .  86 '^294 

n. 386386 

0. 88C489 

0.858247 

C. 831 199 

0.4 

r'.b  7  740  5 

0. 762873 

9 , 814214 

9.33  64  9 1 

9. 3331 56 

0 . 5 

C  .  5o5  ,76  8 

0.637932 

0 . 705959 

0.758535 

0. 792398 

0  «  6 

0. 026444 

0.  o  2  300  5 

0. o49324 

0 . 689322 

9. 728801 

9.  7 

C . 802772 

0. 729694 

0. 694171 

0.698169 

0.701044 

0.8 

C  .  9  3  2  1  9  7 

0 .  b  5  3  7  1  b 

0. 796157 

9.753231 

0. 731° 04 

0.9 

0.895197 

0.890635 

0.  3  6  C  6  3  1 

n.  82  2  7  09 

0. 788553 

1.0 

0.  72  5  f4  5 

0. 795549 

0. 327352 

0.831235 

0. 318866 

1  .1 

o . 579382 

9. 660434 

0. 726222 

C. 770023 

9. 792629 

1.2 

9.590556 

0.609331 

9.649706 

0.694459 

0. 732859 

I  .  3 

0 . 748905 

0.688904 

0.667767 

9.673465 

0.693655 

1.4 

0. 9('' 87 78 

9. 825381 

0.  763  5 04 

0.72  53  32 

0. 710399 

1  .  3 

0.923138 

0. 894200 

0.  848671 

9. 803  1  58 

0.767178 

1.6 

0. 773742 

0.830952 

9.  844  78  7 

0.833967 

0.31  1385 

1.7 

r. 6  9  3  3  1  3 

0.694211 

0.  755236 

0.739765 

0.392056 

1 . 8 

0. 5  o  8  5  2  3 

0. 609637 

0.  66234  7 

9.711018 

0. 747519 

1  .9 

C . 695936 

0.654940 

0.651332 

0.669991 

0. 3°771 7 

2.0 

0.373390 

0. 783432 

0.  732  3°2 

0. 704298 

0.698282 

2.  1 

0. 937727 

0. 887353 

9. 830760 

0.782313 

0. 748573 

2.2 

0. 829737 

0. 860732 

9 , 856144 

0. 332244 

0. 302255 

2.3 

9 . 64 3303 

0. 733027 

0. 735983 

0. 308132 

9. 809897 

2.4 

9. 5ol 164 

0.621635 

9. 632884 

9. 732104 

0. 764413 

2.6 

°  .  6  4  7  4  4  1 

0. 628959 

0.643438 

0.674929 

0. 797574 

2.o 

0. 8  2  83^8 

0. 748255 

0. 703100 

0.  63  72  74 

0. 691599 

2.7 

0.937473 

0.  3698  38 

0. 806900 

9. 759642 

0. 731146 

2.8 

0. 874569 

0 . 3  8 1  7  1  8 

0. 859445 

9 .824532 

9. 789833 

2.9 

0.697427 

0. 773385 

0. 312417 

0.  822  3  76 

C. 813635 

3.0 

0. 568910 

0.64402  1 

0. 709048 

0.755043 

0. 780757 

3 . 1 

0.  t>071  74 

0.612759 

0. 644369 

0.6844  79 

0.721313 

3.2 

0.777039 

9.  703339 

0. 677843 

0.675556 

0. 689995 

3.3 

0.922331 

0. 842884 

0. 778690 

0.  7364  72 

0. 71 5591 

3.4 

o .  9  0  94  6  9 

0. 892693 

0. 354190 

0. 31 1217 

0.  77<*561 

3.5 

0.  76 9? 7 7 

0. 8  1  1969 

0. 834926 

9. 831 063 

0. 312685 

3. 6 

0.591116 

0.674930 

9.  738609 

0. 777772 

9. 794908 

3.  7 

0.573318 

0.607568 

0. 653790 

0. 700327 

0. 737571 

3.8 

n. 723648 

0.671815 

0.65  84  5  1 

0.669934 

n. 693333 

3 . 9 

9 . 893491 

0.803602 

9  .  7  4  •  3  0  6 

9.  71  4  5  3  6 

0 . 702978 

- 


■ 

■ 

4 . 1 

0. 303133 

4 . 2 

r  .62  60  "'6 

4 . 3 

56  316  3 

4 . 4 

n. 67236 2 

4 . 5 

^ . 663246 

4 . 6 

0.9.^  94  7  1 

4 . 7 

0.361  /  8  1 

4  •  6 

0.6  ^799 

4.9 

0. 562918 

5  • n 

r. 6  27  32  3 

0.845681 

3.  8 5  " 7  7 3 

p . 711883 

°. 7691 7 7 

9.613785 

0. 6  709  72 

0.641579 

''.  6  4644  7 

0. 76  97  10 

9 . 718159 

0.  8  80  3  7t. 

0. 326 158 

0.871831 

0 . 85868 4 

°  .  7  5  1  9  3  p 

0.  7 9 8 3 ° S 

0.630911 

9 . 694539 

0.620037 

0. 642782 

0.833445 

0.3C6874 

798427 

0. 805656 

0.  7  2  °  2  6  5 

9. 754989 

0.6  7^8  20 

0. 7^1455 

0.695551 

o. 6942  73 

G. 771721 

0. 74^045 

0.329298 

0. 796639 

o. 61 5347 

0.312126 

?. 742694 

0. 772164 

r' .  6  7  8 1  3  5 

0. 713543 

time: 

r\ 

• 

9.  i 

C  .2 
r.  3 

0 . 4 

9  .  3 
n .  6 

9.7 
0.8 
0.9 
1 .0 
1  .  1 
1.2 

1.3 

1 . 4 
1  .  5 
1 . 6 
1  .  7 

1.8 

1.9 
2.0 
2.  1 
2.2 

2.3 

2.4 

2.4 

2.6 

2.7 

2.8 

2 . 9 
3.0 
3.  1 

3.2 

3.3 

3.4 

3.5 

3.6 

3.  7 

3.8 
3.9- 
4.0 

4.1 

4.2 

4.3 

4.4 

4.5 

4.6 

4.  7 

4.8 

4.9 
5.0 


CCINCfcNTRAT  lUNS  AT  6L1ID  POINTS 


6 

7 

8 

5 . 75000 0 

0.  75  70  00 

0 . 750000 

751664 

n.  75  7762 

9. 750493 

9.  76  991  1 

0.763148 

0. 755037 

0  .  3 962  5  8 

0.  736504 

9. 772495 

r  .  32  731  9 

0.  8  124  78 

0. 796982 

o.  3  0  395  6 

0. 812762 

9. 800788 

0.  76  093  6 

0. 732994 

0. 795527 

0. 722884 

0. 746137 

0 . 766118 

o.  72  5  84  9 

0. 732108 

0. 743925 

r. 764052 

0. 750451 

9. 745878 

79 7993 

0.731546 

3. 767133 

0  .  79.87  91 

9. 794573 

0. 785595 

n. 760095 

0.773768 

0. 762174 

0.  71 33 5 1 

0.  74  7994 

758313 

0.711053 

0. 721088 

9. 734578 

0. 744204 

0. 733455 

0. 731698 

0.  736 777 

9.766712 

0.  751450 

0.  797194 

0. 733265 

0. 774985 

° • 769693 

0.  77931  1 

0. 73011 8 

0.725135 

0.  74  7030 

9. 761693 

0. 70626 5 

9.  72032  5 

0.  736319 

0. 739267 

0. 724570 

:  .  72  704  5 

0.774942 

n. 754649 

9. 742189 

'  .  797111 

0 . 76  32  72 

0. 767660 

0 . 780670 

0. 7340 1 5 

C. 779907 

7  3  6093 

7. 756110 

9. 767566 

o . 706723 

0. 725147 

0. 741990 

0. 71933  3 

0.719539 

0. 726442 

r .  7622  g  6 

0. 744401 

8.  73535  1 

0. 796072 

0. 778842 

0.  760397 

0. 739603 

9.737010 

3.  778520 

0. 743321 

0. 765536 

0.773033 

9.  71 1198 

0. 732147 

0. 748960 

0.711320 

0. 717528 

0. 728419 

0.  74  906  7 

0. 735110 

n. 730282 

0. 789728 

0. 768719 

0. 752826 

9, 795915 

0.  78  7450 

9. 775313 

0.  76  1  73  7 

0  .  7  740 76 

0.  7 770  7  1 

0 .  719028 

0.  74  08  40 

9.  7  5  6  4  7  C 

0. 7  0o6  3  8 

0. 718395 

0. 732451 

0.  7361  55 

0. 727280 

0.  727094 

C.  78 744  1 

0. 759365 

0. 745322 

0.  798777 

0. 735154 

0. 770374 

0.  7  7  43  05 

0. 780936 

3.  77921  7 

0.729524 

0. 750587 

0. 763718 

0.  795604 

0.722910 

0. 738127 

0.724537 

0. 721477 

9. 725971 

0. 763916 

9. 749478 

0 .  738426 

9. 797939 

0.739269 

0.  7  o  4  °  4  0 

9. 784921 

0. 785540 

0.  779264 

0.  74  18  32 

0. 760445 

0. 770100 

9 

1  0 

11 

9.  75r  ^ 9 o 

0.  7 590  no 

0. 750000 

0. 75C34  7 

C. 750148 

0. 750066 

0. 752527 

0. 751366 

0. 751144 

9. 763562 

0. 758933 

9. 7581 72 

0. 784367 

0.776767 

0. 775510 

0.891876 

r.  7  9  0  3  5  3 

0. 795335 

n. 890973 

9. 8C2341 

0.302451 

C. 780518 

0. 738206 

0. 789350 

0.756112 

0.764126 

0. 765373 

0. 746740 

0. 748849 

C. 7491 87 

0. 757790 

0. 753104 

0. 752342 

0. 776285 

n.  7  7091  3 

0. 763949 

0.  782853 

0. 781504 

0.781193 

9.  76  9512 

0 . 774921 

0. 775693 

0. 746953 

0.754613 

0. 755791 

9. 734653 

0. 737881 

0. 738393 

0.  742  91  1 

0. 73 90 10 

0. 73 S3 32 

0. 763334 

9.  75 o0  90 

0. 754385 

r'.  7765  39 

9. 772724 

0. 772026 

9.769819 

0. 773070 

0.773499 

0.749017 

0.  756375 

0. 757490 

'.732914 

0.  73  7645 

0. 738339 

0. 736066 

0. 733829 

0. 733473 

9  .  75  5  3  79 

0. 748222 

0. 747945 

0. 772942 

C. 767420 

9  ,  76  64  5  5 

0. 772435 

0. 77364 1 

0. 773722 

9. 75^332 

0. 76 1059 

0. 762059 

0. 735997 

0.741159 

0. 742194 

0. 732404 

9.732171 

0. 732137 

0. 748632 

0.  742 3 ^  7 

0. 741269 

9. 768927 

9.  7622  08 

0. 761964 

0. 774497 

0. 773543 

0. 773283 

0. 769248 

0. 765867 

0. 766678 

0. 739260 

0. 746217 

0. 747290 

0. 739-8  17 

0.  732642 

0. 732934 

9. 742669 

C. 737612 

0. 736795 

0. 763910 

0. 756547 

0.755314 

0. 775005 

0. 772030 

0. 771457 

0.765747 

0. 76982 1 

0. 770375 

9 . 744643 

0. 751945 

0. 753059 

0.7310 94 

0. 734834 

9. 735424 

n. 737552 

0. 734216 

0. 733682 

0.  75  80  79 

0.750653 

0. 749431 

0.773800 

0. 769040 

C. 768190 

9. 779260 

0. 772461 

0.772711 

9.750713 

0 .  7  5  7  7  7  5 

0. 758835 

0.733129 

0. 730483 

0.739320 

9. 733674 

0  .  7  3  3  3  2  1 

0. 73210 7 

0.751847 

0. 744954 

0.  743826 

0. 779439 

0. 764767 

0. 763704 

0. 773396 

9. 773543 

0. 773463 

I  J'PUT  SIGNAL 
0 .  7  5  0  0  0  0 
°. 9o0368 
0. 077324 
0. 735260 
0. 530799 
0. 510269 
° . 0  6 0  14  6 
0.9i4247 
0. 997340 
0.853030 
0.61 3995 
0 . 5  n  n  9  2 
0.613857 
0. 855042 
0.997652 
0.912572 
0. 6  7  802  4 
0. 509651 
0. 5o2253 
0. 767469 
0.978236 
0.939164 
0.747767 
0. 533  +  ^5 
0.523605 
0.716912 
0.940640 
0. 989094 
0. 81 7726 
0. 564092 
0.502992 
0 . 643991 
0. 667357 
0.999976 
0 . 832271 
0 . 642954 
0. 5r2C55 
0.589115 
0 . 324092 
0.990949 
5.936273 
0. 7  1°344 
0. 520870 
0. 542056 
0 . 754425 
0.962  72  6 
0.975447 
0. 730893 
0. 557936 
0.51)  562 
0.634406 


OUTPUT  SIGNAL 
0. 7 5 r 0 0 0 
0, 750056 
0.751 L 44 
0. 756172 
0 .775510 
0 . 795335 
0. 602451 
0.789350 
0.  7653  73 
0 . 749187 
0 . 752342 
0 . 768949 
0.781186 
A . 7  75  693 
0.755791 
0 . 738393 
0. 73633? 

0 .754885 
0 .772026 
0. 773439 
0 .757490 
0 . 736369 
0.733473 
0 . 747°45 
0 .7o6455 
0.773732 
0.762059 
0. 7  42  i°4 
0.732137 
0.741269 
0.761064 
0 . 7 732 3 R 
9, 766676 
0 .747290 
0 . 732934 
0 . 736795 
0.755314 
0 . 771457 
0.770375 
0.753059 
0 .735424 
0.733682 
°  . 749431 
0 . 768 1 9° 
0.772711 
0.758835 
0.73932° 
0.732107 
9 .743826 
0.763704 
0 .7734o3 


"  X 


ft  to 

INTERRUPT ( 

) 

C  LI 

p  S  Vi 

I  s 

F  F  2  5  0  ^  0 1)  9  2  0  2  A  2  9  A 

4iVl 

INTERRUPT ( 

5 

DLL 

P  S  irv 

IS 

Ff  2  5  ^  0  C  D  A  2  0  2  4  2  rf  A 

ftfl 

I  INTERRUPT  l 

) 

C'Ll, 

P  s  w 

I  s 

FF25900D9202429E 

ftM 

I  NT  E  R P. UP  T  ( 

J 

OLE 

PSD 

IS 

FF2500CDA2P2428A 

\y 

INTFFKUP1 ( 

) 

OLD 

P  S  W 

I  s 

FT  ?5r'C  rD9  2°2429E 

\ 

I  INTERRUPT  ( 

) 

OLD 

P  S  A' 

I  s 

r  F  2  5  °  0  0  U  A  2  0  2  4  2  8  A 

ft  to 

I  INTERRUPT  ( 

) 

OLD 

PS  V1! 

I  s 

FF25C0GDA2r2429E 

\n 

I NTERRUPT ( 

) 

LLP 

PSD 

is 

FF25000DA20242SA 

\M 

I NTERRUPT ( 

) 

ULu 

P  s  w 

IS 

FF25000DA2r24Z9E 

SOLUTION  OF  THE  DISPERSION  VUDEL  E  OUAT  I  ON 
USING  D ANCKWER  T S  B.C. 

SEilI  -AfvALYT  I  CAL  SOLUT  ION 


SINUSOIDAL  INPUT 
C  (  ^  ,  Q) =0 .75+0 . 2  5S  I  N'aQ 


CUNC  ENTRA 

TIGNS  AT 

GRID  POINTS 

ME 

1 

2 

3 

4 

5 

n 

•  • 

o. 750000 

0. 750009 

75000 0 

0. 75° 090 

o. 750090 

i 

9.808216 

r. 778163 

o. 762276 

0. 754960 

0 . 751992 

C  .2 

C . 872871 

0 .  8  3  6  6  o  4 

T.  80588  1 

'■'.  783318 

0.768587 

0. 3 

O'  •  a  5  5  0  5  8 

0.852907 

0. 337269 

n  .816944 

0. 79747b 

C  .4 

0.  76  *'34  7 

0.808165 

0.818233 

0.820429 

0.313031 

0.5 

r . 669990 

0.719911 

0. 759220 

0.784877 

0. 797719 

0.6 

. 66 3446 

A .  6  8  1  3  5 1 

3. 709429 

0 . 738123 

0.761721 

0.7 

o. 74431 1 

0. 716786 

). 710959 

0.719301 

0.734552 

0 . 6 

0.83J.537 

0 . 7  9 1  3  o  3 

0. 759679 

0. 742698 

0. 733137 

C  .  9 

r • 354996 

0.334897 

3. 8nS739 

0. 784432 

0 . 766636 

1 .0 

6. 779922 

0. 806072 

0.811452 

o . 804256 

0.791747 

1.  1 

0.681507 

0.730448 

0. 764089 

0. 782496 

0.788651 

1.2 

0.643791 

0.676805 

0. 709223 

0. 7378+7 

0.758764 

1 . 3 

0. 7  1  142  4 

0.693370 

0.696519 

0. 710487 

0. 728386 

1 .4 

0.311482 

0. 765481 

0.  7  3703  1 

r • 724725 

0.724471 

1  .  5 

0. 85o700 

0.325419 

o. 793006 

0. 766820 

0.749812 

1.6 

9.805284 

C. 813269 

0.812567 

9. 797536 

0. 7  tt  0443 

1  .  7 

0. 704327 

0.  75  03  53 

0.777391 

0.788194 

0. 787650 

1  .  8 

C. 646501 

0.683907 

9.719542 

0.747020 

C . 764343 

1 . 9 

0 .684352 

0.679853 

0.691977 

0.711571 

0. 731 562 

2.0 

0.  78402  1 

0.741778 

0.719851 

0.714191 

0.719162 

2.  1 

0.  35275  1 

0.812635 

0.777381 

0.752267 

0. 738246 

2.2 

9.  82  7785 

0.827183 

0. 81 1546 

0.790622 

0. 771072 

2 . 3 

o. 732922 

0.771968 

0. 790828 

793853 

0 . 787231 

2 . 4 

9.653459 

C. 697691 

0. 734187 

0. 753873 

0. 771821 

2.5 

664289 

0.672587 

0. 693626 

0.71 7746 

0 • 738783 

2 . 6 

0. 754524 

0. 719693 

o. 706375 

0. 706204 

0. 718440 

2.7 

0.841176 

0. 795663 

6. 760663 

0. 738954 

0. 729409 

2 . 8 

n . 844555 

0.830620 

0. 306536 

0. 781670 

C. 761 536 

2.9 

C. 761538 

0. 792399 

9.801785 

0. 7970 33 

0. 785225 

3.0 

0 . 668434 

o. 71612C 

0. 750748 

0. 770881 

0. 778648 

n  i 

a  t  c  a  r>  ->  i 

A  t  7  1  QjQK 

a  7  n  r  'j  o  a 

.A  7  ?  7  9  ?  7 

r. .  7  4  7  ft  1  1 

. 

. 

. 

3 . 3 

3.4 
3  .  5 
2 . 6 

3.  7 
3 . 8 
?  .  9 
4 . 0 

4.  ] 


4.4 

4.5 

4.6 

4.7 

4.8 

4.9 
6.0 


° . 822539 
0.  B o  396 7 
0.7  9'*-?fc.4 
r .690039 
r . 6  4  53  6  9 
4.o9 7383 
.  7  ->*216 
9  •  8  5  5  1  1  0 
j  .  3  1  5  9  r  l 
0  ..  71  64  90 
•  o  4  8  344 
.  6  74  1  1  5 
C.  7  7  r 1 C 8 
•*'.  9  4  306  7 
C  •  j  3  6  3 1  6 
0. 745658 
4  •  6  5  9  4  4  4 
'*  .  6  5  693  7 


•  I  IIP 

0. 775354 
4. 82  7846 
0. 8 ''5b  8  2 
9. 737450 
0 .677695 
r .  6  3  5 1 o  4 

0. 753172 
4 . 6 19 1 ^  1 
%  8  22  3  33 
°.  7  598  6-4 
9 »  6  8  61 o  9 
0.675222 
0. 730832 
0. 804892 
9. 829309 
0. 781634 
0. 7056 99 
0.671317 


743513 
9. 79 73 8  6 
9. 8 ~ 8 9 34 
9. 767530 
0 .  711233 
9. 691 796 
').  72  7084 
0 . 784649 
0 . 811562 
9.  7830  77 
0. 725380 
4. 691 515 
0. 712616 
4. 769281 
0 . 89  9412 
0. 7961 1  1 
0. 741607 
0. 6960r9 


0.  72  7469 
0. 770671 
9.  796883 
0. 731595 
9. 738850 
C. 707941 
0. 717278 
0. 758270 
0 . 793226 
9 . 794602 
4. 751564 
9 . 713244 

0.710271 
0.745381 
4 . 786288 
4. 795381 
0. 764299 
C. 721618 


■  ■  •  r~z— r 

C. 722906 
4. 75 1 684 
4. 78C891 
0. 783657 
0. 757427 
0. 726305 
C . 718896 
4. 742944 
0. 774377 
0. 786247 
C.  766696 
0. 733696 
0. 717584 
0. 733170 
0. 766124 
4. 786145 
0. 774825 
0. 742570 


TI 


C  9NC  ENT RAT I  QMS  AT  GRID  POINTS 


M  E 

6 

7 

3 

9 

14 

11 

4.0 

0. 750000 

0. 750000 

4.  754000 

4. 750000 

0. 750000 

0. 750000 

0. 1 

4.750918 

4. 750562 

4. 730434 

4.750333 

C. 754144 

0. 75°063 

n  ? 

9.  759857 

0.755101 

4. 752681 

0. 751432 

0.  7 5  ° 8  5  0 

o. 750795 

0 . 3 

0. 7815o4 

C. 769903 

4. 762473 

4. 757250 

0. 754745 

9. 754312 

0.4 

O'.  80  12c' 1 

0. 788894 

4.  7  7603  1 

C . 769840 

4. 765064 

0.764262 

4. 5 

9 .800632 

0.797145 

0 . 79C577 

0.  78  3  72  7 

C . 778996 

0.778178 

0 . 6 

9. 777870 

C. 786673 

0. 789724 

0. 785326 

0.  737909 

0 . 787600 

0.7 

n.  7  5  108  1 

0. 765359 

0. 775806 

0.  7  8  2  2  d  2 

4. 785191 

4. 735579 

0.8 

9.  74  2099 

0. 750541 

0. 764088 

0.768244 

0. 773070 

C. 773737 

0.9 

9  .  7  5664  6 

r. 753497 

4. 755007 

0.758525 

4.  761  33  3 

4. 761754 

1 .0 

0. 779124 

0. 7o92 76 

4 . 763094 

0. 769040 

0.758835 

0,  7  5  66  7  6 

1  .  1 

0.766955 

0. 781348 

9 . 774839 

0. 769323 

0.  76  592  1 

9. 76533 1 

1 . 2 

0.771312 

4. 776823 

9. 777538 

9.  775858 

9. 773955 

0. 773578 

1  .  3 

4. 7452C2 

0. 753311 

0.  767'?  1  1 

0. 771328 

0. 773728 

0. 773952 

1.4 

n. 731475 

0. 741505 

0. 751455 

0.759334 

0.763772 

0. 764422 

1.5 

4.74-1764 

0.  74072  7 

?. 743897 

9. 748463 

9.  751 772 

0. 752268 

1.6 

C. 765842 

0. 755742 

0. 750199 

C. 748022 

0. 747493 

0. 747338 

1 . 7 

0.  780854 

0. 771444 

0. 763649 

757386 

0.753733 

0. 7531 75 

1.8 

4.7  72458 

0.  7  73766 

0 . 771147 

0. 767090 

C. 763952 

0. 763384 

1 .9 

4. 747904 

0.75  39  77 

4. 765067 

4. 767487 

0. 767869 

0. 767349 

9  f 

0. 7293 79 

C. 740703 

4. 750540 

C. 757645 

0. 761289 

0. 76181  1 

2.  1 

0 . 7  3  3  5  °  1 

0. 73535° 

4. 749430 

0. 746922 

C. 749720 

0. 750272 

4-  «  £_ 

0  .  75.6399 

0. 747534 

9. 743653 

0.742963 

0.7*3345 

9. 743335 

2.3 

:  .  7  7661  1 

0. 765766 

°. 756933 

0 . 750388 

0. 747643 

0.747100 

2.4 

0. 775459 

0.773069 

9. 767799 

9. 762218 

4. 758359 

0. 757634 

2.5 

0. 753848 

0. 762543 

0. 766044 

0 . 766290 

0. 765368 

0.7651*2 

2.6 

0. 731524 

0.743711 

9.  7531 °0 

0. 759159 

0. 762015 

0. 762398 

2 . 7 

0. 7  2  3  8  °  7 

C. 733760 

0. 740720 

0.747212 

0.  751201 

C. 75 1 792 

2.8 

4. 748304 

9. 741731 

4. 740 loO 

0. 741293 

0.742719 

0. 742923 

2.9 

r'.  77  132  4 

0. 760209 

0. 751832 

2. 746727 

4. 744243 

4.  74382  i 

3.4 

9.777773 

C.772131 

4. 764920 

0. 758423 

r . 754268 

0.753554 

3.  1 

0  .  7  o  0  6  3  2 

0.766476 

0. 767319 

4. 765546 

0. 763491 

0. 763988 

3.2 

4.736118 

0. 748392 

9. 756764 

C. 761482 

0. 763362 

4. 763585 

3.3 

0. 72673 5 

0.734464 

9. 742911 

0.  74  99  1 1 

0.753940 

0. 754529 

3.4 

C .  74  106  1 

0. 737463 

°. 738456 

4. 741427 

0. 743839 

9. 744196 

3.5 

0. 765942 

0. 754602 

0. 747460 

0.743791 

0. 742305 

0. 742945 

3.  6 

0. 778442 

0. 7701 4] 

4. 761618 

■0.  754799 

0. 750714 

0. 759920 

3.  7 

0. 767072 

0.  76  9689 

0. 767389 

0. 764303 

0. 761 348 

4. 769760 

3.8 

0. 742271 

0. 753730 

0. 764489 

0. 763545 

0.764323 

9. 764367 

3.9 

0.  72683  1 

4. 736832 

0.  746?  C5 

4. 753202 

0. 756963 

9. 757596 

4.0 

0. 734937 

0. 734624 

0. 738157 

0. 742770 

C. 745989 

9, 746468 

4 . 1 

0. 759129 

4. 74  702  3 

0. 743732 

4. 741327 

0.741467 

0. 741338 

L  9 

0.777149 

P  .  7  6  6  8  1 2 

^ . 767 7b 7 

P. 76122Q 

n. 747649 

4. 746976 

• 

* 

* 

' 

■ 

4  .  6 
4 .  7 
4.  a 

4.9 

5.0 


C. 749315  0. 759087  9.763731 

" • 729933  0.740643  0. 75^1 33 

r. 73^242  9.733296  0.739116 

2.  75  132 >3  r.  74  3  7  94  ^.  74069  5 

'.773943  0 . 762466  9.763644 

r. 776253  0.772183  0.765827 

0.756632  0.763968  0.766151 


0. 764905 

C. 764522 

0.  76438 1 

p. 756591 

9. 759794 

0. 7or'23o 

°>.  74  5^2  3 

9. 746792 

9.749352 

n. 74^532 

^ •  7  4  1  6  2  0 

9. 741739 

0.747867 

0. 744881 

0. 744375 

9. 759659 

0.755561 

0. 754852 

0. 765363 

C. 763846 

0. 763526 

OvOCD>J7Ul4>W(VMOvij'E->j!7'  VT  -C"  tjJ  f\)  ►—  Oom-ja  Ui  4>  VjJ  !\J  ►—  o 


INPUT  SIGNAL 

OUTPUT  SIGNAL 

).C 

?. 750000 

0. 7500  00 

1 

C.  9(j0  363 

0.75C063 

3 .  2 

0.977324 

0.750705 

3.  3 

0. 785280 

0.75431? 

'  .4 

0.560799 

0 .764262 

:.5 

0. 510269 

0.778178 

3.6 

C. 68014b 

0. 787600 

3.7 

0. 914247 

0.785579 

CO 

• 

r  1 

0.997340 

0.773787 

3.9 

0.853030 

0. 761 754 

!  r 
.  «  . 

0. 613995 

0. 758676 

.  1 
.2 


.  3 
.  4 

5 


.  6 

L.  7 

.  8 


0. 500002 
^'♦615857 
0. 855042 
0.957652 
0.912572 
0 . 678024 
0.509651 
0.562253 
0. 787469 
0.976236 
0.959164 
0. 747737 
0.533445 
^ .523605 
0.  7  L  6  9 1 2 
C. 94C640 
0.939094 
0. 817726 
0. 584092 


0.765331 
0 . 773578 
0 .773952 
n . 764422 
0 . 752268 
0 .747388 
0.753175 
0 . 763  384 
0.767849 
0.761611 
0.750272 
0.743385 
0 . 7  4  7 1 n0 
0.757684 
0.765142 
0 . 762398 
0.75179? 
0.742923 
0.743321 


0.  5  02  992 
0.648991 
0 . 867857 
0.999978 
0. 8a2271 
0 . 642954 
0. 502055 
0.539115 
0. 824n92 
^ . 990949 
0. 936278 
0.710344 
0,520870 
0. 542056 
0. 754425 
0. 9 o 2  726 
0. 975447 
0.780893 
0. 557936 
0.511 562 
0.634406 


0.753554 
C .  7  63  r  8  8 
0 . 763535 
0 .754529 
0.744196 
0.742045 
C. 75CC?o 
0. 760760 
0.76^367 
0.757506 
°  .  7  4  6  4  6  8 
0. 741338 
0 . 746926 
757980 
0. 764381 
0.760236 
0.74935 2 
0,74 1 73  n 
0.744375 
0.754852 
0 .763526 
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APPENDIX  G 

LISTINGS  OF  VARIOUS  SUBROUTINES 


The  subroutines  listed  in  this  appendix  are: 


1. 

TRANS 

2. 

JACOBI 

3. 

CHECK 

4. 

S  EM  IAN 

5. 

LINECT 

6. 

CALCU 

7. 

INTERP 

8. 

ALI 

9. 

ATSG 

10. 

CS006A 

The  subroutines  ALI  and  ATSG  have  been  taken  from 
"SCIENTIFIC  SUBROUTINE  PACKAGE  (360A  -  CM  -  03X)  .  VERSION  II 
PROGRAMMER'S  MANUAL". 

ALI  is  used  for  interpolation  and  ATSG  is  the  sub¬ 
routine  for  ordering  the  table  from  where  the  interpolation  is 
to  be  done.  The  reference  to  these  subroutines  can  be  made  to 
the  above  manual  on  page  253  for  ATSG  and  page  245  for  ALI. 

The  subroutine  CS006A  is  new  addition  to  the 
library  and  this  was  written  by  MRS.  M.  EASTON,  Department  of 
Computing  Science,  University  of  Alberta,  Edmonton.  This  sub¬ 
routine  is  used  to  find  out  the  eigenvalues  and  eigenvectors 
of  a  real  unsymmetric  matrix. 


• 
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SUBROUTINE  TRANS ( N ,DX , 0, MATR I  X ) 

THIS  SUBROUTINE  CONVERTS  THE  ORIGINAL  COEFFICIENT 
MATRIX  TO  THE  REAL  SYMMETRIC  FORM  USING 
SIMILARITY  TRANSFORMATION 

_ INPUT  DATA  _ _ 

0X=  THE  GRID  SPACING 

N=  THE  NUMBER  OF  GRID  POINTS 

D=THE.  DIAGONAL  MATRIX  ,*IITH  DIAGONAL  ENTER  I E  S 
HAVING  ALTERNATE  SIGNS  I.E.  D ( I , I ) = ( -1 ) ** (  I  M D ( I , I)  ) 
USED  FOR  SIMILARITY  TRANSFORMATION 

MAXRI X=  THE  CRIGINAL  COEFFIC I  ENT  MATRIX  (DIAGONALLY 
DOMINANT  C  UNSYMME TR I C ) ,  DESTROYED  DURING 
COMPUTATION  AND  THE  RESULTANT  MATRIX  IS  SYMMETRIC 
AND  DIAGONALLY  DOMANANT. 

REAL*8  DX, ALPHA, BETA 

DOUBLE  PRECISION  0(40,40) , MATRIX! 40,40) 

ALPHA=0-2 _ _ 

BET  A=DX/2 .0 
D( 1,  11  =  1.0 


CALCULATE  THE  DIAGONAL  ELEMENTS  OF  MATRIX  D. 


NN=N-1 

DO  100  1=1, NN 
11=1+1 

D(II,II)=D( 1,1) *D$QRT( ( ALPHA+B ETA) /( ALPHA- bETA) ) 

100  CONTINUE 

DO  102  1=1,20,2 
Oi  I  ,  I  )=-DU,JJ 

102  CONTINUE 

CALCULATE  THE  COEFFICIENT  MATRIX  CONVERTED  INTO 
THE  SYMMETRIC  ONE 

DO  101 J  =  1 vN _ 

00  101  J  =  1 , N 

MATRIX!  I  , J )  =  ( MATR I  X (  I,Ji*D(J,J))/(D(I,I)) 

101  CONTINUE 
RETURN 
END 
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C 

C 

C 

C 

c 

c 

c 

c 

c 

C 
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SUBROUTINE  JACOBI ! N , M AT R I  X , V EC TOR f T OL E KC , NORM) 
JACOBI  EVALUATES  THE  EIGEN  VALUES  AND  EIGEN  VECTORS 
OF  A  SYMMETRIC  MATRIX 
INPUT  DATA 

BORDER  OF  THE  MATRIX 


SET  IE 


MATRI X=THE  MATRIX  ITSELF 
VEC  TOR=M ATR I  X  OF  EIGEN  VECTORS 
TOLERC  =  TOLER E NC E  LIMIT, INTERNALLY 
NOT  SPECIFIED 
NORM=SPEC I F I ES  THE  TYPE  OF  NORMALISATION  OF  THE 
EIGENVECTORS.  IF  THIS  IS  2,  QRTHONURMAL  FIGFN 
VECTORS  ARE  OBTAINED 

DOUBLE  PRECISION  S I NE , COS  I NE , T S 1 , T S2 , L AM6D A , MU , 


IOMEGA, TOLERC  ,  MATR I  X ( 40 , 40 )  ,  VECTOR l 40 , 40 ) , T S 3 

INTEGER  I  *JtPfQfN,NMI,PPlf DONE, NORM 
IF ( TOLERC. EQ. 0.000000000000 )  TOLERC =9 . 000 00 000 000 C I 

NM1=N- 1 _ 


DO  1  1  =  1, N 
DO  1  J=1,N 

VECTOR  (I  ,  J)  =0.900  0  00^  0000000 

I F { I . EQ . J )  VECTOR (I ,1 )  =  1.0000  ( .  ' )000 

1  CONTINUE 

2  DQNE-O _ 

DO  5  P= 1 , NM 1 


PP1=P+1 


_ _ DO  5  U=PP1,N 

IF (DABS ( MATRI X(P«Q) ) *LE. TOLERC )  GO  TO  3 
DONE= 1 

_ LAMBDA=-_MATRIX(  P,Q  ) 

MU  = . 5000000000000000*1 MATR I  X 1 P , P ) -MATR I  X ( Q , Q) I 
OMEGA=  LAMBD A/DSQRT ( LAMBDA *LAMBDA+MU*MU ) 

IF ( MU. LT .0. 000000000000000 )  OMEGA=-QMEGA 
SINE=OMEGA/DSQRT (2 .000000000000000^2. 000000000000000 * 

I  DSQRT ( 1 .OOOOOOOOOOOOOOC-OMEGA*OMEGA) ) 

COSINE  =  DSQRT ( 1 . OOOQOOOOOOO^OOO-S I NE*SJ  NE ) 

DO  4  1  =  1, N 

IF ( I .EQ.P.OR  .  I .EQ.Q)  GO  TO  3 
TS1=CQSINE* MATRIX! P, I ) -SINE*  MATRI XI Q, I ) 
TS2=SINE*MATRIX(P, I I+COSINE* MATRIX (Q, I ) 

MATR I  X ( P ,  I  )  =  TS1 

MATRI  X  (Q  ,  I)  =TS_2^ _ _ 

MATRIX! I, P>=TS1 
MATRIX! I  , Q ) =  TS2 

3  TS1= VECTOR! I  »P) *C0 S I NE -V  EC  TOR ( I , Q ) *S I NE 
TS2= VECTOR! I »P ) *SI NE+ VECTOR ( I , U) *COS I NE 
VECTOR! I , P )  =  TS 1 

4  VECTUR! I ,Q)=TS2  _ 

TSI  =  MATR I X( P  t P) *COSI NE*COS I NE- 2. 000000000000000* 

1MATRIX!P»Q)*C0SINE*SINE+MATRIX!Q,Q)*SINE*SINE 
TS2= MATRIX! P,P) *S I NE*S I N E  +  2 . OOOOOCOO 090C000*MA TR I  X  t P , 
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1 Q ) *COS INE*S I NE+MATRI X ( Q , Q ) *COS I NE*COS I NE 
TS3=(MATRIX(P,P) -MATR I  X  (  g  ,  Q  )  ) *S I NE*CGS I NE+MATR I  X ( P , Q 
1)*  (COSINE *C0SINE-SINE* SINE) 

MATR IX(P,P)=TS1 

_ mat_r_i  x  (g  ,g )  =  t  s  2 _ 

MATR I  X ( P  *  Q ) =  TS3 
MATRIX(U»P)=TS3 

5  CONTINUE 

IF(DONE.NE.O)  GO  TO  2 
IF l NORM • NE . I )  GO  TO  8 

_ JDO_  7  J  =  1  ,N  _ 

T  S 1  =  VECTOR ( I  ,  J) 

DO  6  I  =  2  » N 

IF ( D ABS(  TS1 )  .LT . DABS (VECTOR (  I , J )  ) )  T  S 1  =  VECTOR (  I  ,  J  ) 

6  CONTINUE 
DO  7  1  =  1,  N 

VECTOR ( I , J)=VECTQR( I , J ) / TS 1 

7  CONTINUE 
RETURN 

8  DO  11  J= 1 , N 

tsi=o* 000600000600000 

DO  9  1  =  1, N 

_ TSI=TS1» VEC TORI  I  , J ) * VECTOR (  I  ,  J  ) 

9  CONTINUE 

TS 1 =1 • 00 COOO OOOCO GOOD /DSQRT ( TS1) 

DO  10  1=1, N  _ _ 

VECTOR ( I , J ) =  VECTOR ( I , J ) *TS  1 

10  CONTINUE 

11  CONTINUE 


RETURN 

END 
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SUBROUTINE  CHECK ( V  ECTOR, MATR I  X ,N, W ) 

THI  S  iUBRQUT  IN5  MAk.ES  |  SIMILARITY  TRANSFORMATION 
DOUBLE  PRECISION  VECTOR ( 40 ,4^ ) , MATH  I X( 4^ ,40) » 

1 W ( 40,40 ) 

DO  400  J  =  1  .  M _ 

DO  400  I = 1 , N 

W( I , J)=0.0 

DO  400  K  =  l  ,  N . . . . . . 

»Mt  J I  =W  ( I  f  J  )  +VECT  OR  (  I  ,  K  )  *  HA  T  R  IX(K  ,K )  *VEC  T  OR  (  J  f  K  ) 
400  CONTINUE 

RETURN _ 

END 


. 
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SUBROUTINE  S EMI  AN ( N, VAR , VECTOR , C 1 , C I , MATRIX,  T ME 
1 t  NT ,CEVR,VIC  TOR ) 


C  THIS  SUBROUTINE  USES  THE  S E M I - ANA L YT IC A L  SOLUTION 

_ C _ TO  EVALUATE  THE  CONCENTRATION  PROFILES  AT _ 

C  VARIOUS  ELAPSED  TIMFS. 

C 

. . . REAL *8  CONST 

DOUBLE  PRECISION  VAR (40) » VECTQR< 40 »40 ) »C1(40) » 

1C  I  (  V'* )  » M  ATR  I  X(40,4O)  ,  T  I  ME  (  40  )  ,CEVR  (40,40  )  , 

L _ 2 V ICTOR  (  40  « 40  > _ _ _ 

DO  8  J  =  I ,  N 

V  AR ( J ) =  0. 0 

_ _ _ _  DQ . 8 . K  =  1  ,  N 

VAR  (  J  )  =v  AR  (  J  )  4-V  ICTOR  ( J  , K)  *Cl  (K  ) 

8  CONTINUE 

_ DO  9  J  =  1 »  N _ 

9  Cl ( J)=VAR( J ) 

DO  10  J=1,N 

L™ _ _ xAEi.j).=^.a 

DO  10  K=1 1 N 

VAR ( J ) = V  AR ( J)+VICT0R(J,K)#CI (K) 

i _ 1*  CONTINUE _ 

DO  11  J  =  1 ,  N 
11  Cl ( J )  =  VA  R  (  J  ) 

| _ _ DP. . 18..J=1,NT . . . . . ___ . . . . . 

DO  15  K  =  1 , N 

CONST=-MATRIX(K,K)*TIME( J ) 

_ 1  5  V  AR ( K ) = (  (MATKIX(K,K)*CI (K)-Cl(K)  ) »D£ X P ( CUN  ST ) +C 1 ( K ) ) 

1 /MATRI X ( K , K ) 

DO  17  L 1 =1 , N 

, _ CEVR( J»L1 )=0.0 . 

DO  16  L  2=  1 , N 

16  CEVR ( J , L 1 )=CEVR( J  ,  LI  H- VECTOR { L 1 , L2 ) *VAR ( L2 I 
L _ 17  CONTINUE _ _ _ 

18  CONTINUE 
RETURN 

L _  END 
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SUBROUTINE  L I NFCT <  L I NES t N , RE FER ) 


THIS  SUBROUT  TNE  KEEPS  A  TRACK  OF  THE  NUMBER  )E 
LINES  PRINTED  AND  SKIPS  TO  A  NEW  PAGE  LEAVING 
SUFFICIENT  MARGIN 


c 

INTEGER  LINES  ,N, REFER 

L I NES  =  L I NES  +  N 

IF ( LINES. GT. 61 )  GO  TO  5 

RETURN 

5 

WR I T  E ( 6  ♦  1  ) 

L I NF  S  =  9 

IF! REFER. EQ. 1 )  GO  TO  6 

RETURN 

6 

WR  I  T  E  (  6  t  2  ) 

L INES=  1° 

1 

FORMAT ( lH2t 10X. 8H  . . CONTD ) 

2 

FORMAT ( 1 H  » 1 0  X ) 

RETURN 

END 


. 
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SUBROUTINE  C ALCU <  NN , N , NT ,C EV R , C AP X , X , T I  ME, CGRID, XX ) 
C 

C  THIS  SUBROUTINE  CALCULATES  THE  INTERPOLATED 

C  VALUES  FOR  VARIOUS  TIMES 

_C _ 

REAL  C  EV  R { 1 5 ,10) »CAPX,X(5) , T I M E ( 15) ,CGRI D(  15,5 ) , 
1XX<  15) , C  PR  I M  E ( 150 ) 

_  DO  182  J  =  1 , N  T 
DO  181  K  A  =  1 , N 
DO  183  K= 1 »  NN 

_ CPRIME(K)=CFVR(JfK  ) _ 

183  CONTINUE 

CALL  INTERPI  10, X , X X , CPR I  ME , KA  ,CC , N  ,  NT ) 

CGRIOI J,KA)=CC 

181  CONTINUE 

182  CONTINUE 


RETURN 

END 
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SUBROUTINE  I  NT ERP ( NP , X , X X , Y  ,KA,CC,N,NT) 


INTERP  USES  THIRD  ORDER  LAGRANGIAN  INTERPOLATION 
FORMULA.  THE  INTERPOLATED  VALUE  IS  CC . 


REAL  X( 5 ) , XX ( 15 ) , Y( 15C )  ,CC 
DO  202  K B= 1 »  NP 

IE (X(KA) .GT. XX(KB) )  GO  TO  202 
GO  TO  203 

202  CONTINUE 

203  LA=KB-2 _ 

IF(LA.EQ.O)  L A= 1 

LB=KB+ 1 

IF(KB.EQ.NP)  L  B  =  NP 
CC=0.0 

DO  207  KC  =  L A  » L B 

_ RP-1.0 _ 

DO  206  KD=LA,LB 
IE(KD.EQ.KC)  GO  TO  205 
RS-(X(KA)-XXIKU) ) / (XX( KC)-XX(KD) ) 
RP=RP*KS 
GO  TO  206 
20  5  RS.=  1,Q 

206  CONTINUE 

RP=  RP* Y ( KC ) 

2  07  CC  =  C C  +  RP 
RETURN 
END 
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